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©3901 
902 


0093 
0U04 


0905 
0006 
0907 
3068 
ereren) 
0010 
0011 
0012 
C013 
0014 
0015 
0016 
C017 
9018 
GI? 
6920 
C021 
0022 
b023 
0324 
0025 
0026 
Cue? 
ud28 
1929 
6930 
u931 
0032 
v0$3 
0334 
9935 
GI%6 
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L958 
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0041 
C342 
vI45 
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C046 


0047 


RELEASE 


11 


12 


13 
10 


14 


15 


16 


930 


2.9 MAIN DATE = 76345 10/32/51 
COMMON/MAST/™ASTER 

DIMENSTON XNAME C25) ELE (25) -YNAME (25) VAL C25) 6 SUMC 25) /SUMA(C25) 4 FLO 
Te 25)-¢SPLISTC25 425) 4 CAPC25) FAC 25425) 6 C0254 25) 6 KO 25625) oP (25625) o BO 
225425) 6 VC25 425) EFF C25) -NPLIST (25) s-NBRNCH( 2562) -POLN( 25-5) e PCO 2562 
35225) cL bN (51426) oNTEME C25) -SAMERE (C25) sNMAC25 Do MENAME (254365) 0 
SIDOC25 425) e NPLAC25) oe PORM (25063) ce PM(25 42563) -NALOW(25-25)-PMDA 
STAC252344-5) sSMEQTI (C75) -EQUSED (25475) -EUC75) sSUMM( 6), 
OAMAR (25607) - TEMP (4,2) -EQTIME (7S) cCNSTAR (6) sBRANCH(25425)68 
ZTRENC 25), EQGNAME (7545) ¢RANK (25) -FLGPT(25) sNROUT (25) -NFLOW (25) oVNSPC75S 
BY-NSET(25,3) -USENOC75) -PT(25)-NTB(25) 

INTEGER ELE sA-POLNJEQUSED-EU-EQNAME -USENO,SUMSSUMA 

INTEGER*2 NPLISTsNPLAsIBNeNTEMP sNMAs AMAR SPMs LDOFFP CNALOWs/BRNeBRANC 
1H 

DATA EQUSED/1875*0/ 
DATA VNSP/75*0./ 
DATA EUS75*#0O4 
MPARM=25 
MSORS=25 

MBRNC=25 

MEQ=75 
MERPT=MBRNC +1 
MP2=MBRNC+2 

00 14 1=1-MPARM 

00 11 J=1-3 
NSET(J,J)=0 
PCRMCI-J)=0. 

00 TT K=144 

OU 11 L=1,5 
PMDATACI,J/-K ot) =0. 
SAMFRECTI)=0. 

NMAC 1)=0 

DC 12 J=1-MBRNC 
¥(J-1)=0. 

NALOW(I 4J)=0 

BDO 12 K=1,25 
PCClLsK-J)=0. 

00 13 J=1-25 

oo 13 K=1-3 

PM (1-3 -K) =0 . 

00 109 J=1,-"P2 

AMAR (1-5) =0 

00 14 1=1-25 é 
NPLACI)=0 

09 15 I1=1,MEQ 

SWPEQTICI)=0. 

EQTIFECI)=0. 

DO 16 1=146 

CNSTAR(C1)=0. 

SUMM(T)=0. 

READ (1,910) MASTER 

READ(1/9CU) NFLAG 

READ(1,900) EPSLON 

FORMATCIS) 


CALL PROCES CXNAMEFZELE sYNAME -VAL FLOW sSPLIST/CAPs JM sMSORS oMPA 
TRH) 

CALL STARTCAsCONPLISTsFLOWsSPLIST cNBRNCH sMSORS cMPARM oMBRNC oP 
TOULNe XNAME -NTEMP »SAMFRE NMA) 

CALL TOP CALC eX oP so Yo FLOWSEFFeNPLIST/NBRNCHsPOLNsXNAME, 


PAGE 0001 
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TRANKs FLGPTSMSORS-MPARM-MBRNC-TEST OPT -NTB) 


0045 IFC TEST.E@.1.)60 TO 1 

0049 IF CEPSLON.LEG.0)G0 TO 901 

u0s0 CALL CORRCTCNPLIST&C EFF o Ko FLOM sc Ar Po YoPOLN MSORS cMPARM MBRNC) 
0051 901 IFCNFLAG.NE.U0)GO TO 1 

5052 CALL LEVEL (E16 Y-AsPC eI BNeMSORS -SUMs SUMA cMP ARMs MBRNC, MBRPT NPLA) 
9353 CALL RMC(POLN/MENAMEs IDO-NMASNPLAsPC/PCKM oe PMs ISN oNALOW PMO 


TATASNTEMP ZNROUT sNFLOWsSMEQTI-SAMFRE -EQUSED cE Us SUMM ONSET SAMARSTEMPe 
ZEQTIME-NPLIST/-USENO,CNSTAR-NBRNCHsBRANCH,BRN-EQNAME » MPAR™ sMBRNC 2™B 
4RPV,MEQsMP2-VNSP) 

L054 1 ST9P 

0955 END 


Aceh rd 


H! 
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FORTRAN IV G LEVEL 21 PROCES CATE = 76020 13/28/17 PAGE 0001 


0001 SUBROUTINE PROCES( XNAME ELE, YNAME y VAL yFLOWs SPLIST CAP, JMyMSCRSyMPA 
1R™) 
0002 DIMENSION XNAME(MSORS) ,ELE(MPARM) »YNAME (MSORS)» VAL (MPARM) »FLOW(MSO 
IRS)ySPLIST(MSGRS»MPARM) yCAP(MSORS) y ZNAME(25) gFLWI25) 
cC)3 INTEGER ELE 
0004 DATA PAPC/4HPAPC/ 
0cc5 OATA PAQP/4HPACP/ 
0096 DATA PSAC/4HPSAC/ 
2007 CATA PNAC/4HPNAC/ 
00cs DATA PBDN/4HPRON/ 
0009 DATA PBIX/4HPBIX/ 
OClLO CATA PCOW/4HPCOW/ 
; Ocll DATA PNBP/4HPNERP/ 
0c12 DATA PBPP/4HPBRPP/ 
? 0613 DATA PBEX/4HPBEX/ 
5 COL4 CATA PNCS/4HPNCS/ 
: ocls DATA PNGS/4HPNGS/ 
i OC16 DATA PPNO/4HPPND/ 
ool7 . DATA PAPP/4HPAPP/ 
: 6018 DATA PSWG/4HPSWG/ 
t ocl9 DATA PCWZ/4HPCWZ/ 
ec20 DATA PPAS/4HPPAS/ 
0021 DATA PPCU/4HPPCU/ 
£022 DATA PPCW/4HPPCW/ 
: 0023 DATA PFSW/4HPFSW/ 
t 0C24 DATA PFCU/4HPFCU/ 
0025 DATA PFCW/4HPFCW/ 
0026 DATA PTCW/4HPTCW/ 
: 0027 DATA PSAR/4HPSAR/ 
| 0628 DATA PSAW/4HPSAW/ 
0029 CATA PANP/4HPANP/ 
0030 CATA PPHE/4HPPHE/ 
0031 DATA PCLE/4HPCLE/ 
C032 DATA PCIX/4HPCIX/ 
0033 DATA PAIX/4HPALX/ 
6634 DATA PCWS/4HPCHS/ 
0035 DATA PAPN/GHPAPN/ 
OC 36 DATA PNON/4HPNDN/ 
: 0037 DATA PGRB/4HPGRB/ 
0038 DATA PSALI/4HPSAZ/ 
C039 DATA PTNT/4HPTNT/ 
0040 DATA PPHZ/4HPPHZ/ 
0041 DATA PSTP/4HPSTP/ 
0042 DATA PCWL/4HPCWL/ 
0043 DATA POOW/4HPODW/ 
C044 DATA PRWS/4HPRWS/ 
0045 : DATA PAPS/4HPAPS/ 2593 
: 0046 DATA PADR/4HPADR/ Ov. 
; C047 DATA PZPP/4HPZPP/ 
: 0048 DATA PCAP/4HPCAP/ 
0049 DATA PAPK/4HPAPK/ 
' 0c50 CATA PAHC/4HPAHC/ 
" 0o51 DATA PZPD/4HPZPD/ 
1 cc52 DATA PCAD/4HPCAD/ 
0053 DATA PCOA/4HPCOA/ 
C054 CATA PCOP/4HPCOB/ 
C055 00 5 LD=1_,MSORS 


0056 FLOW(LND)=0.0 
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CO57 
0038 
oc59 
060 
cC6l 
C062 
C063 
00464 
0065 
C066 
00467 
0068 
0069 
oc7c 
0071 
0072 
C073 
0074 
C075 
0076 
0077 
0078 
co79 
ocs0 
cost 
C082 
0°83 
C084 
c0as 
C036 
0087 
oc8s8 
C089 
ocso 
Oo9L 
0092 
0093 
C094 
0095 
CC96 
C097 
0093 
cc99 
0100 
O1dl 
Olc2 
C103 
0104 
01°55 
01.36 
C197 
ClI8 
0109 
0110 
Olt 
O112 
0113 
0114 


6 
5 


10 


200 


210 
100 


21 PROCES 


DO 6 LS=lL»¥PARM 
SPLIST(LOsLS)=020 
CONTINUE 

CONTINUE 

REAO( LIC) N 
FORMAT(1LX+12) 

00 10CG JM=1,_N 

READ( Le 200} XNAME (UM) SCAP( 
FORMAT(LX eA4e LX oF 602) 
WRITE( 39210) XNAME( JM) »CAP 
FORMATUEULKsA4, 3X9 F662) 
CONTINUE 

JM=0 

DD 300 JM=1,N 

ITF UXNAME( JM) .EQ.PAPCICALL 
TF (XNAME(JM)CEQ.PAOPICALL 
IF CXNAME(JM)SEQePSACICALL 
IF UXNAME( JM) CEQePNACICALL 
TF (XNAME(SM)2EQsPBONICALL 
TF UXNAME( JM) SEQSPBIXICALL 
TF XNAME( JM) .EQ.PCOWICALL 
TE CXNAME (IMD CEQSPNAPICALL 
TF (XNAME(J™)ZEC.PEPPICALL 
IF (XNAME (JM) 2EQePBEXICALL 
IF UXNAME (IM) SEQSPNCSICALL 
TF UXNAME(JM)DSEQSPNGSICALL 
IF CXNAME (JM) 2EC.PPNDICALL 
TFUXNAME( JM) /EQ.PAPPICALL 
LF CXNAME (JM) eEQsPSWGICALL 
IF (XNAPME( SM) SEQ.PCWZICALL 
IF (XNAME( IM) -EQ.PPASICALL 
TF (XNAME(JM)2EQePPCUICALL 
TFUXNAMECIMPCEQSPPCWICALL 
IF (XNAME( JM) EQS PF SWICALL 
TF UXNAME (JM) 2EQePFCUICALL 
IF UXNAME (IM) CEQCSPFCWICALL 
ITF (XNAME( JM) 2EQePTCWICALL 
IF (XNAME(C IM) CEQSPSARICALL 
IF (XNAME( JIM) CEQePSAWICALL 
ITF CUXNAME (JM) CEQ.PANPICALL 
TF CXNAME( JMPJZEQSPPHE CALL 
TF (XNAME( JM) SEQePCLEDCALL 
TF CXNAME (IMI CECSPCIXICALL 
TF UXNAME CIM CEQSPATXICALL 
IF UXNAME( IM) EQePCWBICALL 
TF UXNAME (CIP DCEQSPAPNICALL 
IF (XNAME( IM) SE QePNDNICALL 
IF UXNAME( J“). EQ.PGRBICALL 
TFCXKNAME CIM ISECCPSAZICALL 
TF (XNAMECIMIDSEQSPTNTICALL 
TF CXNAME( IM) EQ.PPHZICALL 
TF CXNAMECSMICEQSPSTPICALL 
TF (XNAME (JY) 0EQePCHLICALL 
TF UXNAME( IM) CEQsPCOWICALL 
IF (XNAMELIM)SEQSPRWSICALL 
IF (XNAMEC IMI SEQSPAPSICALL 
IF(XNAME(JMICEQSPADRICALL 
IF (XNAME(JM)©EQ.PZPP)CALL 
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JM) 


(JM) 


SAPC(FLOWsSPLIST»CAPsJ™eMSORS,MPARM) 
SAOPCFLOWs SPLIST»CAPs IMeMSORS »MPARM) 
SSAC(FLOWsSPLIST»CAP,IM»MSORS»MPARM) 
SNAC (FLOW, SPLIST»sCAP,JMyMSORS »MPARM) 
SBON(FLOWs SPLIST»CAPs IMyMSORS »MPARM) 
SBIX(FLOWsSPLIST,»CAP,JIMyMSORS,MPARM) 
SCOW(FLOW,SPLIST»CAP»s JIMpMSORSyMPARM) 
SNBPUFLOWs SPLIST «CAPs IM»>MSORS pMPARM) 
SBPP(FLOW,sSPLISTsCAP,JMyMSORS »MPARM) 
SBEK(FLOWsSPLIST»CAP» JMyMSORS »MPARM) 
SNCS(FLOW,SPLIST»CAPy JMyMSORS yMPARM) 
SNGSCFLOWs SPLIST»CAP»JMyMSORS »MPARM) 
SPNOCFLOWsSPLIST,»CAP, JIMeMSORS »MPARM) 
SAPP(FLOWs SPLIST CAP, JMyMSORS »MPARM) 
SSWG(FLOWs SPLIST»CAPsJMyMSORS »MPARM) 
SCWZI FLOW, SPLIST, CAP, IM,MSORS »MPARM) 
SPAS(FLOWsSPLISTsCAPs JMyMSORS »MPARM) 
SPCULFLOW,SPLIST»CAPs JMy>MSORS eMPARM) 
SPCWLFLOWsSPLISTsCAP» IMp»MSORS »MPARM) 
SFSW(FLOWsSPLISTsCAPy JIMyMSORS »MPARM) 
SFCUCFLOWsSPLISTsCAP,JMyMSORS »MPARM) 
SFCW(FLOWs SPLIST»CAP»JIMyMSORS »MPARM) 
STCW(FLOWsSPLIST,»CAP»JMyMSURS »MPARM) 
SSAR(CFLOWs SPLIST,»CAP,IM,MSORS yMPARM) 
SSAW(FLOWs SPLISTeCAP»JM»MSORS »MPARM) 
SANP(FLOWsSPLIST»CAP,JM,MSORS »MPARM) 
SPHECFLOWs SPLISTsCAP, IMeMSORS pMPARM) 
SCLE(FLOWse SPLIST»+CAPyJMyMSORS »MPARM) 
SCIX(FLOWsSPLIST»CAP, IMyMSORS »MPARM) 
SAI X( FLOW, SPLISTsCAP,y JMyMSORS »MPARM) 
SCWBRIFLOW,SPLIST,CAP,J¥,MSORS yMPARM) 
SAPN(FLOWeSPLIST»CAP,IMyMSORS pMPARM) 
SNON(FLOWsSPLIST,CAP,JIMyMSORS »MPARM) 
SGRB(FLOWsSPLIST»sCAPyJMyMSORS »MPARM) 
SSAZ(FLOWs SPLISTyCAPyIMyMSORS »MPARM) 
STNTCFLOWsSPLIST»CAP,IM,MSORS »MPARM) 
SPHZ(FLOWs SPLIST»CAP,yIMyMSORS yMPARM) 
SSTPLFLOWe SPLIST+CAPyIMeMSORS »MPARM) 
SCWLIFLOWsSPLIST»CAPyIMyMSORS »MPARM) 
SODW(FLOWsSPLIST»CAPyJIMyMSORS»MPARM) 
SRWSCFLOWsSPLIST»sCAPeJMeMSORS yMPARM) 
SAPSCUFLOWySPLIST»CAP,yJMyMSORS »MPARM) 
SAOR(FLOWySPLISTsCAP, IMyMSORS y MPARM) 
SZPP(FLOWsSPLIST»CAP,JMyMSORS »MPARM) 


PAGE 0002 
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O115 
0116 
OLLT 
cLis 
O1lg9 
0120 
0121 
0122 
O123 
0124 
0125 
6126 
0127 
0128 
0129 
0130 
OL3L 
9132 
9133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
OLSl 
0142 
0143 
9144 
0145 
0146 
0147 
C148 
0149 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
9157 
0158 
0159 
0169 
0161 


300 


400 


600 
7C0 


750 
800 


850 
825 
860 
875 


880 
890 


895 


896 


898 
897 
925 
sce 
500 


2t PROCES DATE = 76020 


13/28/17 


LF OXNAME( SM) CECePCAPICALL SCAP(FLOW,SPLIST eC AP, IMeMSORS,MPARM) 
TF UXNAME (JM) CEQSPZPKICALL SAPK(FLOW,SPLIST»CAP, JM, MSORS yMPARM) 
IF UXNAME( JM) SECePAHC)CALL SAHC(FLOWySPLIST»CAPyIMsMSUORSyMPARM) 
TF UXNAME(IM)SEQePZPD)CALL SZPO(FLOW,SPLIST»CAP, IMpMSORS »MPARM} 
TF(XNAME( JM}PSEQePCADICALL SCAD(FLOW,SPLIST»CAPsJMyMSORS »MPARM) 
TF (XNAME( SMI 6EQePCOAICALL SCOALFLOW,SPLIST+CAP»JM:MSORS »MPARM) 
TF UXNAME(JM)SEQePCOBICALL SCOBCFLOWsSPLISTyCAP, IMeMSORS »MPARM) 


CONTINUE ’ 
REAL (1,40C NOD } 
FORMAT(ULX,I1) 

WRITE (3,40C)}NOD 

IF (NOO 1860, 860,690 

READ( 1+ 700 )NMOOD 

FORMAT(LX,13) 

WRITE 3, 70CNMOD 

CO 800 NM=1,NMOD 

READ( Ls 750) YNAMEC(NM) SELECNM) ¢ VALEINM) 

WRITE (39 75C)YNAME (NM) gELECNM) py VALONM) 
FORMATOULXs AS LX el 2eLXeF G02) 

CONTINUE 

DO 825 NM=),NMOD 

OG 859 JM=1—N 

ITF (YNAME (NM DCEQeXNAME (CSM) PSPLIST(JMeELE (NM) ) =VALUNM) 
CONTINUE 

CONTINUE 

READ(1,875)NPRO 

FORMAT(UX-I1) 

WRITE(3,875)NPRO 

IF (NPROD5CC, 500, 880 

READ(1L+890}NUMP 

FORMAT(LX,12) 

READ( 1, 89C)NELE 

00 900 JN=1,NUMP 
READ(1+895) 2NAME( JIN) sp FLWI JN) 
FORMATOCLKsASe Ll XeF 604) 

OO 925 JE=LyN 

IF CZNAME( IN) eEQeXNAME(JSJEDIGO TO 896 

GO TO 925 

FLOW(JE)=.C1*CAP( JE) *FLWI IN) 

OO 897 JK=1,NELE 

READ(1 eB9BISPLESTI JE, JK) 

FORMAT(LXsF9.2) 

CONTINUE 

CONTINUE 

CONTINUE ‘ 
RETURN 

ENO 
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0001 SUBROUTINE SAPC(FLOWsSPLIST»CAP,JMsMSORS »MPARM) 
30392 DIMENSION FLOW(MSORS )ySPLIST(MSORS »MPARM) »CAPIMSORS) 
oco3 FLOW( JM)=.01*CAP(IMI*0.26 
0004 SPLISTCIM,1LI=7.7 

00905 SPLIST(SM,25=21 

0096 SPLIST(JMs3)=416 

0007 SPLIST(IM,4)=13 

C0148 SPLIST( SM, 5)=1.3 

coo09 SPLIST(JMs6)=240 

fo op Ke) SPLISTCIMe7TI=ALS 

ooll SPLEISTCIM, @1=1.8 

C012 SPLIST(JM,91=243 

0013 SPLIST(JM,1O0)=1.29 

0014 SPLISTC IMs LLI=122 

cO15 SPLIST(J5M,12)=5C 

COL6 SPLIST(IMs13)=0202 

Ool17 SPLIST(IM,142=020 

0018 SPLISTIIM,15)=1.7 

co19 . SPLIST(JMy16)=0.0 

oc2c SPLIST(IM»L71=000 

0021 SPLIST(IM, 18)=0.03 

0022 SPLIST(IM,19)=020 

£023 SPLEST(IM,20}=98 

0024 SPLIST(JMs21)=0.0 

0925 SPLIST(IM,22)=79 

0026 SPLIST(IMs24)=2 

co27 RETURN 

0028 END 


FORTRAN IV G LEVEL 


ocol 
9002 
C003 
occ4 
0095 
0096 
o007 
occs 
0099 
COLO 
ooll 
0012 
0013 
0014 
oo1Ls 
OC16 
9017 
col1s 
0019 
0020 
0021 
0022 
0023 
0024 
0025 
0026 
0027 
0028 


ST EIT PE TITS NE SN. EE 


ee 


SUBROUTINE SAOP(FLOWs SPLIST»CAP,JMyMSORS»MPARM) 
DIMENSTON FLOW(MSORS) ySPLIST(MSORS»MPARM) ,CAP(MSORS) 


saaPp 


FLOW(IM)=.O1*CAPLIMI*3.26 


SPLIST(JMyLI=7.5 
SPLIST(IM,2)=22 
SPLIST( IM, 31=346 
SPLIST(JM»41=8 
SPLIST(JM,5)=1.3 
SPLIST(IM,€)=240 
SPLIST(IMy71=3.2 
SPLIST(JMe8)=0.03 
SPLIST(IM,91=244 
SPLIST(JM,10)=067 
SPLIST(IMelLLI=90 
SPLIST( IM, 125=56 
SPLISTCIM,13)=0016 
SPLIST(JMe14)=020 
SPLIST(IM,1L5}=1.3 
SPLIST(IM, 1L60=102 
SPLISTEIM,17)=0.0 
SPLISTUJMe18)=.03 
SPLIST&IM919)=0.9 
SPLIST(JM,20)=68 
SPLIST(IMs21)=77 
SPLIST(JMy22)=69 
SPLISTIIMe 24)=32% 
RETURN 

END 


DATE = 76020 


13/28/17 
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cool 
0002 
0033 
C094 
ecos 
0096 
0007 
9008 
0009 
oc: 
ool! 
OC12 
O01L3 
C014 
cols 
0016 
col7 
o018 
co19 
G020 
0021 
cc22 
0023 
0024 
0025 
C026 
Go27 
0028 
c029 


2t 


SUBROUTINE SSACCFLOWySPLIST CAP, JIMeMSORS «MPARM) 
DIMENSION FLOWE(MSORS) ¢SPLIST(MSORS»MPARM) »CAP(MSOR 
FLOW(JM)=.01*CAP(JM)*1320 


SPLIST(IMy»LI=265 
SPLIST(JM,2)=25 
SPLIST(IM, 32=726 
SPLIST(IM,4)=22 
SPLISTOIM,5)=0274 
SPLIST(IM,6)=360 
SPLISTCIM, 7TH=327 
SPLIST(JIMe8)=263 
SPLIST(IM,S)=403 
SPLIST(IM,10)=40 
SPLIST( JM, L11=90 
SPLIST£IM,12)=262 


SPLIST(JIM,13)=0.16 


SPLIST(IM,14)=10 

SPLIST(IM,15)=963 
SPLIST(IM,16)=102 
SPLIST(JM,17)=0.0 


SPLIST(JMe18)=0.63 


SPLIST(JMe19) =0.0 
SPLIST(IM,20)=68 
SPLIST(JM,21)=77 
SPLIST( IMs 22)=0 
SPLIST(JM,23)=10 
SPLIST( IM, 24)=90 
RETURN 

ENO 


Soe oor ac arc 


SSAC 


\ 
| 


DATE = 76020, 13/28/17 
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ecol SURROUTINE SNAC(FLOW,SPLIST,»CAPyJMyMSORS »MPARM) 
u002 DIMENSTON FLOW(MSORS) »SPLISTOMSORS,MPARM) »CAPIMSORS) 
0093 FLOW(IM)=.01 *CAP( IM) #408 
CO04S SPLIST( JM + 1L1=603 

0c3s SPLIST(JMe2)=36 

0096 SPLISTCIMs 33=726 

0007 SPLISTI5M24)=608 

occs SPLIST(JM,5)=965 

0009 SPLIST( JIM, 6)=593 

0010 SPLIST(JIM, 71=29 

Oolr SPLIST(JMy8)=Lel 

0012 SPLIST(JM5S)=603 

0013 SPLIST(JM,10I=7e1 

0014 SPLIST(IMe11)=90 

oc1s SPLIST(JM,12)=262 

9016 SPLIST(JMe130=0.16 

ool? SPLIST(JM,14)=0. 

00le SPLIST(JIMe15)=9.3 

0c19 SPLIST(JIM,16)=102 

0029 SPLIST(JMe17)=0.0 

0021 SPLIST{JIM,18)=.03 

0022 SPLIST(JM,19)=C.0 

0023 SPLIST( JIM, 20)=68 

0024 SPLIST(JIM,21)=77 

0025 SPLIST(JIMe22)=50 

CC26 SPLIST(JM,23)=15 

3027 SPLIST( IM, 24)=9.2 

0028 RETURN 

0029 END 


FORTRAN 


Cool 
0002 
0043 
C004 
occs 
096 
ooo7 
occs 
0099 
0010 
corl 
oo12 
0013 
GOL4 
9015 
0016 
9017 
0018 
0019 
0029 
0021 
CC22 
0023 
C024 
0025 
0026 
0c27 
0028 


Iv G LEVEL 


2. SBON OATE = 76020 


SUBROUTINE SSONC(FLOWsSPLISTsCAP,JMeMSORS »MPARM) 
OLMENSTON FLOWCMSORS) » SPLISTIMSORS»MPARM) »CAP(MSORS) 
FLOW(IMD=.CLECAPI IM) #0.C8 
SPLIST#IMe1)=624 
SPLIST(JMs2)=20 
SPLIST(JMe 30=0.2C 
SPLIST(JIMs4)=11 
SPLIST(IM,5)=0.65 
SPLIST( JM 6)=270 
SPLIST( JIM, 7)=0-8 
SPLIST(UM,81=2.2 
SPLIST(IM,9}=3060 
SPLIST(IM, 10)=30 
SPLIST(IMe11)=122 
SPLIST(JM,12)=50 
SPLIST(JM,13)=0.02 
SPLIST(JM,14)=020 
SPLIST(JM,15)=1.7 
SPLIST(JM,16)=0.0 
SPLIST(JM,17)=C.0 
SPLIST( IM, 181=0.63 
SPLIST(JM,19)=0.0 
SPLIST( IM, 20)=92 
SPLISTIIMs21)=020 
SPLIST(JMe22)=62 
SPLIST(JM,24)=10 

RETURN 

ENO 


13/28/17 
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ool SUBROUTINE SBIX(FLOWeSPLIST+CAPyJMyMSORS»MPARM) | 
0022 DIMENSTON FLOW(MSORS) sSPLIST(MSORS »MPARM) »CAP(MSORS) 
0003 FLOWELIM)=.C1L*CAP(JM)#100.0 

0094 SPLIST(IMy1)=720 

0095 SPLIST(JSMe2)=31 | 
0026 SPLIST(IMe 3)=900 

0097 SPLIST(IM,4)=17 

0098 SPLIST(IM,5)=0065 

ces9 SPLIST(IMe6)=252 

0010 SPLIST(JIMy 7)=0.53 

00:1 SPLIST(JMy8)=202 

0012 SPLIST(IM,9)=254 

0013 SPLIST(IMy19)=207 

C014 SPLIST(SMp11)=122 

0015 SPLIST( IM, 1L2)=76 

6016 SPLIST(IM,13)=0202 

0017 SPLIST(JMe140=0.9 

0018 SPLIST(JMy15)=1.7 

C019 . SPLIST(JMy16)=00% 

0020 SPLIST(JMy17)=C.0 

cO21 SPLIST(JM,18)=0.63 

0022 SPLIST(JMe19)=629 

0c23 SPLIST(JM,20)=0.0 

0024 SPLIST(JMs21)=0.0 

C025 SPLIST(IMy22)=62 

0026 RETURN 

0027 END 


| 


ee 
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9091 
00%2 
COI3 
CCl4 
3005 
occ6é 
acQ7 
00098 
c039 
0010 
ocll 
ool2 
0013 
CC14 
Gols 
OCl6 
colT 
cols 
cc1g : 
c020 
Go21 
0022 
CC23 
0024 
0025 
C026 
0027 
0028 
9029 


21 


scOw 


DATE = 76020 13/28/17 


SUBROUTINE SCOW(FLOWsSPLIST»sCAP»JMyMSORSeMPARM) 
DIMENSTON FLOW(MSORS) »SPLIST(MSORS,MPARM) ,CAP(MSORS) 
FLOW(CIM)=.C1*CAP( IM) #428 


SPLIST(JIMe1)=6.4 
SPLIST(IM,2)=20 
SPLIST(JM,3)=600 
SPLIST(JM,4)=11 
SPLIST(IM,5)=0.74 
SPLIST(IM,6)=390 
SPLIST(JIM,7)=065 
SPLIST(JM,0)=2.3 
SPLISTIIM,9)=446 
SPLIST(JMe10)=40 
SPLIST(IM,1LILI=90 
SPLISTOJIM,129=50 
SPLIST(JM,13)=0.16 
SPLIST(JM,14)=C0.0 
SOPLIST( IM, 1L5)=9.3 
SPLIST(IM,16)=10 
SPLIST(IMe17)=0.0 
SPLIST(JM,16)=0.63 
SPLIST(JIM,19)=C.0 
SPLIST(JM,20)=60 
SPLIST(JMe21)=77 
SPLIST(IM,22)=100 
SPLIST(JIM,23)=3-0 
SPLIST( JM. 24)=10 
RETURN 

£ND 


ee Re 
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oc)l SURROUTINE SNBP(FLOWsSPLIST,»CAPsJIMsMSORS»MPARM} 

oc) DIMENSION FLOW(MSORS) »SPLISY(MSORS»MPARM) »CAP(MSORS) 
0093 FLOW(JMI=.CL*CAP( JMd*LL6 

6cl4 SPLISTEIM,1)=205 

9¢35 SPLIST(IMe2)=146 

0006 SPLIST(JMy 3)=564 | 
ocoT SPLIST(5%4)=34 

0008 SPLIST(IMe5)=003 

0069 SPLIST(JM,6)=2660 

C010 SPLIST(JM, 7)=104 

COLL SPLIST( SM, BI=LT 

C012 SPLIST(JM,9)=2650 

0013 SPLIST(JM,10)=5 

6014 SPLIST(JSMy11)=25 

0015 SPLIST(IM,12)=2000 

C016 SPLIST(JM, 13)=0.0 

ooLT SPLISTCIMs14)=C.0 

co18 SPLIST( JM, 155=32 

9019 SPLIST(JIMy16)=12 

0020 SPLIST(JMy17)=0,0 

0021 SPLIST(JMy18)=0.60 

0022 SPLIST( JM 199=900 

0623 SPLIST{IM-20)=20 

0024 SPLIST(JMy21)=6,67 

0025 SPLIST( SM, 22020 

0026 SPLIST(JMy23)=4 5 
0027 SPLIST(JMe 24)=100 

5028 RETURN r 

0629 END 


FORTRAN IV G LEVEL 21 SBPP DATE = 76020) 13/28/17 PAGE 0001 


2051 SURRDUTINE SRPP(FLOWsSPLISTsCAPsJMyMSORS »MPARM) | 
6022 DIMENSION FLOW(MSORS) »SPLIST(MSORS »MPARM) eCAP(MSORS) 
9003 FLOWLI4)=.01L*CAPLIM) #0. 30 

0094 SPLIST(JM,1)=503 

0005 SPLIST(JM,2)=90 

0006 SPLIST( JM, 3)=357 

0097 SPLIST(IM,4)=42 { 
coos SPLIST(JMe5)=0.14 4 
cou9 SPLIST(JM,61=530 

0010 SPLIST(IMy 7)=725 

v0ll SPLIST(JM,8)=067 

0012 SPLIST( JM, 9)=590 

0C13 SPLIST( JIM, 10)=55 

0014 SPLIST(JM,11)=35 

9015 SPLIST(JMy12)=64 

CC1l6 SPLIST(JM,131=020 

0017 SPLIST( IM, 149=85 

ccla SPLIST(JM,15)=24 

c0c19 SPLIST(JM,16)=55.0 

0020 SPLIST(JM,17)=0.0 

0021 SPLIST(JM,18)=4.81 

6022 SPLIST(JM,19)=0.0 

0023 SPLIST(JM,20)=20 ‘ : 
0024 SPLIST(IM,21)=27.9 

0025 SPLIST(JM,22)=58 

0026 SPLIST(JMy23)=76 

0027 SPLIST( JM, 24)=30 

0028 RETURN 

0029 END 


ey es %. 


— 


———————————————————EE = 


FORTRAN IV G LEVEL 21 SBEX OATE = 76020 13/28/17 PAGE 0001 


ocol SUMROUTINE SREX(FLOWsSPLIST»CAP,JMyMSORS »MPARM) 
ond2 OIMENSTON FLOW(MSORS) »SPLIST(MSORS »MPARM) »CAP(MSORS) 
C093 FLOW(IM)=.01*CAP( IM) #0045 
90:24 SPLIST( JM, 1)=602 

0005 SPLIST(JMy2)=20 

occté SPLIST(JIM,3)=1000 

oc)7 SPLIST(JM,4)=27 

0008 SPLIST(JM,5}=0.74 

0c 9 SPLIST(JIM,6)=186 

0010 SPLIST(JIMs, 7T)=C.63 

uodll SPLIST(JM,8)=202 

0012 SPLIST(JMe9)=2C0 

0013 SPLIST(JM,LOI=1L4 

COl4 SPLIST(JM,11)=90 

0015 SPLIST(IMe12)=38 

OCc1l6 SPLIST(JMy13)=C.16 

ool? SPLIST( JM, 14)=C.9 

co18 SPLIST(JMy15)=9.8 

oo19 SPLEIST(IMe16)=162 

0020 SPLIST( JIM, 1 7#=C0.0 

0021 SPLIST(J%,18)=0.63 

0022 SPLIST(JIMs19)=0.9 

0023 SPLIST( JIM, 200=70 

0024 SPLISTCIMe21)=77 

0025 SPLIST(C IMs 221=62 

0C26 RETURN 

0027 END 


FORT24N IV G LEVEL 21 SNCS DATE = 76C20 13/28/17 PAGE 0001 


ocol SUBROUTINE SNC S(FLOWsSPLIST»sCAP,JM»MSORS,MPARM) 
C092 DIMENSTON FLOW(MSORS) »SPLESTEMSORSsMPARM) ,CAP(MSORS) 
0003 FLOW(IMI=.CL*CAP( IM) #2.0 

oCI4 SPLIST(JM,1LI=7.0 

0005 SPLIST(JM,2)=63 

CC 26 SPLIST{JIM,3)=1200 

oco7 SPLIST( IM, 4)=63 

0008 SPLIST(IMs5)=1.3 

oco9 SPLIST(JM,6)=523 

oo1lo SPLIST(JIMe7)=5.8 

ccll SPLIST(JM,8)=502 

ooLl2 SPLIST(IM,S)=531 

col3 SPLIST(JM,10)=8 

COl4s SPLIST(JM,11)=90 

ooLs SPLIST(JM,12)=116 

colé SPLIST(JM,13)=0.16 

OCL7 SPLIST(JM,141=929 

ccls SPLIST(JM,15)=9.3 

0019 SPLIST( IM, L6)=162 

0020 SPLIST(JIMelL7TI=020 

oc2l SPLIST(JM,18)=0.63 

0022 SPLIST¢(IM,19)9=0.0 

0023 SPLIST(JM,20)=68 

0024 SPLIST(JMe21)=0.03 

0C25 SPLIST(JM,22)=8C 

0026 RETURN ; 
0027 END 


G3S2 


ote 


FORTRAN IV G LEVEL 


cool 
002 
0003 
0074 
coos 
C006 
C07 
econ 
ocu9 
0010 
ocll 
0012 
0013 
0014 
oolLs 
OC16 
OoL7 
ools 
co1lg9 
0020 
o021l 
0022 
0023 
C024 
0025 
OC26 
0027 
0028 
oc29 


2t 


SUBROUTINE SNGS(FLOWsSPLIST+sCAPsJMyMSORS »MPARM) 
DIMENSION FLOW(MSORS) ¢SPLIST(MSORS »MPARM) »CAP(MSORS) 
FLOW(JM)=.°1*CAP( JM) #0209 


SPLEST (IM, 1L)=723 
SPLIST(JIMe2)=72 
SPLIST(JM,3)=1220 
SPLIST(JM14)=63 
SPLIST(JM,5)=1.66 
SPLIST(JIMs6)=523 
SPLIST(IM,7)=5.8 
SPLIST(JM,8)=2.54 
SPLIST(JM,9)=531 
SPLIST(JM,10)=8 
SPLIST(JM,11)9=90 
SPLIST(JMe12)=50 
SPLIST(JM,13)=0.03 
SPLIST(JM,14)=9.0 
SPLIST( JM 155=0.0 
SPLIST(JMe16)=020 
SPLIST(IM,179=0.0 
SPLISTOCSM,18)=0.68 
SPLIST(JIMe19)=0.0 
SPLIST(JMe20)=70 
SPLIST£IM¢ 21) =269 
SPLIST( JM, 22)=60 
SPLIST(CIMs23)=11.1 
SPLIST(IM,24)=20 
RETURN 

END 


13/28/17 PAGE OCO1L 
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Ocul 
o0o2 
cc93 
0034 
oc35 
C006 
C007 
cc98 
0009 
ooLlo 
ooll 
e912 
0013 
ool 
oo1s 
0016 
COLT 
0018 
0019 
oc20 
0021 
Cco22 
0023 
0024 
0025 
0026 
0027 


21 


SPND OATE = 


76020 


SUBROUTINE SPND(FLOW,sSPLIST»CAP»JMyMSORS,MPARM) 


DIMENSION FLOW(MSORS) »SPLIST(MSORS»MPARM) »CAP(MSORS) 


FLOW(JM)=.C1*CAP(IM)*100.0 


SPLIST(JM,1)=6.0 
SPLIST(JM,2)=20 
SPLIST(IM,3)=0.0 
SPLISTCIMs4)=11 
SPLIST(JIM,5)=0.74 
SPLIST(JM,6)=250 
SPLIST(JM,7)=0.5 
SPLIST(JMs8)=2.3 
SPLIST(JIM,S9)=29C 
SPLIST(JM,10)=29 
SPLIST(JMe11)=90 
SPLIST(JM,12)=50 
SPLIST(JM,13)=0.16 
SPLIST(IMy14)=6.0 
SPLIST(JM,15)=923 
SPLIST(JIM,16)=162 
SPLIST(JM,17)=0.90 
SPLIST(JM,18)=0.63 
SPLIST(JMy19)=0.0 
SPLIST(JM,20)=0.0 
SPLIST(CIM,21)=77 
SPLIST(JMs22)=70 
RETURN 

END 


13/28/17 
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0001 SUBROUTINE SAPP(FLOWs SPLIST»CAPyJMyMSORS »MPARM) 
0002 DIMENSION FLOWIMSORS)ySPLIST(MSORS»MPARM) »CAP(MSORS) 
0003 FLOW(JM)=.01*CAP( JM) *100.0 
0004 SPLIST(SMy L1=602 | 
00)5 SPLIST(IM,2)=20 
0c06 SPLIST(JMy3)=000 
ccl7 SPLIST(UM,4)=11 
0028 SPLIST(JM,5)=0.65 | 
0009 SPLIST(IM,6)=270 
0610 SPLIST(IM,7)=400 
0011 SPLIST(UM,@)=2.2 
0012 SPLIST(JM,91=300 
0013 SPLIST{JMy10)=30 
0014 SPLIST(JMy1LLI=122 
001s SPLIST(IM,12)=50 
0016 SPLIST(JMy13)=0.92 
0017 SPLIST(JMy14)=0.0 
0018 SPLIST(JM,15)=1e7 
; 0019 SPLIST( JM, 16)=0.0 
0020 SPLIST(JM,17)=0.0 
0021 SPLIST(JM,18)=0.63 
C022 SPLIST(JM,19)=0.0 
0023 SPLIST{IMy20)=0.0 
0024 SPLIST(JM,21)=0.0 
0025 SPLIST( JM, 22) =62 
0026 RETURN 
0027 END 
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oool SUBROUTINE SSWG(FLOW,SPLEST CAP, IMeMSORS »MPARM) 
0002 DIMENSION FLOW(MSORS),SPLIST(MSORS»MPARM) ,CAP(MSORS) 
0C03 FLOW(JM)=.C1L*CAP( JM) #10020 
0004 SPLISTCIMyLI=6.7 

ocj35 SPLIST(IM,2)=55 

0026 SPLIST( IM, 3)=534 

00j7 SPLIST(IM,4)=11.9 

ocos SPLEST(JIMy5)=1.5 

0909 SPLIST(JM,6)=259 

0310 SPLISTEIIM, T)=124 

ooll SPLIST(JM,8)=1.5 

0012 SPLIST(IM,9)=283 

0013 SPLIST(JIM, 1L0)=18 

dOL4 SPLIST( IM, LLI=123.0 

oo1s SPLIST(JIM,12)=68 

0016 SPLIST(JM,13)=O.1 

col? SPLIST(IM,14)=0.0 

o018 SPLEST(IM,15)=1723 

0c19 SPLIST(JM,16)=12 

0020 SPLIST(JM,17)=0.0 

0021 SPLIST(JMe18)=1.0 

QC22 SPLIST(JMe19)=060 

0023 SPLIST(IM,20}=0.0 

0024 SPLIST(JM,21)=11-4 

0025 SPLIST( IM, 22)=79 

C026 RETURN 


0027 END 
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0001 SUBROUTINE SCWZ(FLOWsSPLIST»CAP,JMsMSORS »MPARM) 
0092 DIMENSION FLOW(MSORS) eSPLIST(MSORS »MPARM) »CAP(MSORS) 
0003 FLOW( JM) =.01L*CAP( JM) #10000 
0U04 SPLIST(IMe1)=624 
aocs SPLIST(JMe2)=20 
0C06 SPLIST(JMe 3)=0.0 
C007 SPLIST( IMs 4)=11 
9098 SPLIST( IMs 5)=0.74 
j 0009 SPLIST(JMe6)=390 
0016 SPLIST(JMy7)=0065 
oolL SPLIST( JIM, 2)=2.3 
0012 SPLIST(JMy9)=440 
oo13 SPLIST(JMy10)=40 
: 0014 SPLEST(JIMe11)=90 
! 0015 SPLIST(JMy12)=50 2 
j 0016 SPLIST(JMe13)=0016 
i CCL? SPLIST(JIMy14)=009 
9018 SPLIST( SMe 15)=903 
0019 SPLIST(JMy16)=102 
0020 SPLIST(JMe17)=0.0 
j 0021 SPLIST(JM,18)=0.63 
q 0022 SPLIST(IMy19)=0.0 
9023 SPLIST(JMe20)=0.0 
C024 SPLIST(JMy21L)=77 
0025 SPLIST(JMe22)=70 
0026 RETURN 
0027 END 


C302 


FORTRAN 


Oost 
0002 
ocd3 
£004 
ocos 
0006 
oco7 
occas 
ooo09 
oc1y 
colh 
ocl2 
0013 
0014 
ocls 
0016 
ool? 
0018 
9019 
0029 
o021 
g022 
0023 
0924 
g025 
0026 
0027 


Iv G LEVEL 


21 


MI a 


SPAS 


DATE = 76020 


SUUROUTINE SPAS(FLOW,SPLIST»sCAP,JMyMSCRS »MPARM) 


OIMENSTON FLOW(MSORS) »SPLIST(MSORS»#PARM) »CAP(MSORS) 


FLOW(CIMD=.CLECAP(IMD®.001L5 


SPLIST¢(IMe 1) =5.43 
SPLIST(J4,2)=17 
SPLIST(JM, 3)=392 
SPLIST(IMe4)=1L1 
SPLIST(JMs5)=020 
SPLIST(JIM,6)=270 
SPLIST(IM,7I=7 
SPLEST(IMe8)=2.73 
SPLIST(JM,S)=221 
SPLIST(IM,1Ob=1.7 
SPLISTCIMs1L1LI=100 
SPLISTOIM,12)=73 
SPLIST( IM, 133=C.9 
SPLIST(IMy14)=C.6 
SPLIST(JMe15)=C.0 
SPLIST( JM, 16)=0.0 
SPLIST(JMs17)=0.9 
SPLIST(JMe18)=0.0 
SPLIST(JMe19)=4.0 
SPLIST( SM, 201=75 
SPLIST(IM,21)=278 
SPLIST(JMe22)=28 
RETURN 

ENO 
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eee. SUBROUTINE SPCUCFLOW, SPLIST»CAPyJMyMSORS »MPARM) 
CcJ2 OIMENSTON FLOW(MSORS) »SPLIST(MSORS»MPARM) »CAP(MSORS) 
0093 FLOW( IM)=.0L*®CAP(JM)#.02 
OC 34 SPLIST(JMeLI=7.8 
0095 SPLIST(JM,2)=15 
$cc SPLIST(JM,3)=100 
cc47 SPLIST(IM+4)=290 
0098 SPLIST(IM,5)=150 
0009 SPLIST(JIM,6)=3.0 
0010 SPLIST(JMy7)=100 
COLL SPLIST(JM,8)=3.0 
oCc12 SPLIST(JMy9)=1.6C 
0013 SPLIST(JSMy10)=764 
0C14 SPLIST(JMy!11)=100 
C015 SPLIST(JMy12)=150 
OCL6 SPLIST(JM,13)=0.9 
0017 SPLIST(JMe14)=029 
4 oc18 SPLIST(JMy15)=CcO 
4 0619 SPLIST(JM,16)=0.0 
0026 SPLIST(JMe171=000 
f 0021 SPLIST(JMy18)=000 
‘ 0022 SPLIST(JM,19)=150 
4 0023 SPLIST(JMy20)=75 
! 0024 SPLIST(JMy21)=100 
C025 SPLIST(JM_22) 65 
C026 RETURN 
0027 END 


gan 
seh ee 


FORTRAN IV G LEVEL 21 SPCW OATE = 76620 13/28/17 PAGE 000} 


ocol SUBROUTINE SPCWI(FLOWsSPLIST,CAP,JMeMSORSyMPARM) 
cco2 DIMENSTON FLOW(MSORS) »SPLIST(MSORS »MPARM) »CAP(MSORS) 
0093 FLOW(JM)=.01L*CAP( JM) #290 
6004 SPLISTUJSMs1L)=T7el 
0cos SPLIST(IMe2)=23 
0006 SPLISTtJMe3)=27 
coor SPLIST(IMe4)=0.0 
; 2008 SPLIST(JMe5)=020 
0099 SPLIST(JMs6)=161 
0010 SPLIST( IM, 7)=6 | 
ooll SPLIST(JM,B8)=Lel 
0012 SPLIST(JMo9)=229 
0013 SPLIST(JIM,101=68 
: 2014 SPLIST(JMy11)=109 
' cols SPLIST(JMe12)=53 . 
F OC16 SPLIST(IMe131=0.0 
‘ 0017 SPLIST( SMe 141=0.9 
4 0018 SPLIST(J4e15)=0.0 
} 0019 SPLIST(JMe16) =62 
\ 0020 SPLIST( JM, 17)=0.0 
' 0021 SPLIST(JM,18)=020 
0022 SPLIST(JMe191=029 
0023 SPLIST( JM, 20)=75 
0024 SPLISTIJM,21)=17 
9025 SPLIST(JMe221=49 
0026 RETURN 
0027 END 


O3G24 


FORTRAN IV G LEVEL 21 SF SW DATE = 76020 13/28/17 PaGE 0001 


cc. SUBROUTINE SF SWIFLOW,SPLIST»,CAP,JMsMSORS,»MPARM) 
9092 DIMENSTON FLOW(MSORS) pSPLIST(MSORS»MPARM) »CAP(MSORS) 
; 0003 FLOW( IM) =.O01L*FCAPL IM) #20024 
‘ 0c3s SPLIST(IMs1LI=764 
; 0005 SPLIST(CIM,2)=174 
0006 SPLIST(JM,3)=137 
Oco7 SPLIST(IM,41=66 
0098 SPLIST(JMy5)=000 
0009 SPLIST(JMy 6)=156 
colo SPLIST(JMy7)=404 
ooll SPLIST(JM,8)=2067 
0012 SPLIESTIIMsS)=158 
0013 SPLIST(JM,10)=201 
0014 SPLIST(JMy11)=100 
; 0015 SPLIST(JMy12)=25 
; 0016 SPLIST(JM,13)=0.0 
OOLT SPLIST(JM,14)=0.0 
co18 SPLIST(JMy15) =000 
0019 SPLIST(JM,16)=0.0 
0020 SPLIST( JIM, 17)=000 
: 0021 SPLIST(JMy18)=000 
0022 SPLIST(JMy19)=608 
0023 SPLIST( JM, 20)=75 
0024 SPLIST(JM,21)=358 
0025 SPLISTUIM, 222268 
0026 RETURN 
0027 END 
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FORTRAN 


oool 
co02 
€C93 
0034 
coos 
Oco6 
ocd7 
00u8 
oca9 
0010 
ooll 
O012 
co13 
CCL4 
0015 
9016 
ool? 
0018 
6019 
9029 
0021 
0022 
0023 
C024 
0025 
0026 
0027 


Iv G LEVEL 


21 


SFCU 


CATE = 76020 


SUBROUTINE SFCUCFLOW,SPLIST»CAP,JMyMSORS »MPARM) 


DIMENSTON FLOW(MSORS) eSPLIST(MSORS»MPARM) »CAP(MSORS) 


FLOWC IMD =eOL#CAP(IM)#.O1 


SPLISTUJIM,1)=8.7 
SPLIST(IM,2)=1603 
SPLIST(IM,3)=112 
SPLIST(JM,4)=24 
SPLIST(IM,5)=0.0 
SPLIST(JM,6)=165 
SPLIST(IM,7)=3.0 
SPLIST(IM,8)=1.0 
SPLIST(JM,9)=173 
SPLIST(IMylLOI=70e4% 
SPLIST(JMy11)=100 
SPLISTIJM,12)=16 
SPLIST(JM,13)=0.0 
SPLIST(IM,14)=020 
SPLIST( JM, 15)=0.0 
SPLIST(JM,16)=0.0 
SPLIST(JM,17)=0.0 
SPLIST(JMy18)=C.0 
SPLIST(JM,19)=47 
SPLIST(JIM,20)=75 
SPLIST(IMe21)=111 
SPLIST(JIM,22)265 
RETURN 

END 
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sool 
0092 
0003 
0034 
0005 
0056 
ocoT 
0c98 
oco9 
0019 
ooll 
Ccl2 
0013 
0014 
OvLS 
COlL6 
OOL? 
ocls 
oclgs 
0020 
0021 
0022 
C023 
0024 
0025 
0026 
0027 


21 SFCW DATE = 76020 


SUDROUTINE SFCW(FLOWsSPLIST»CAP,JMyMSORS »MPARM) 
OIMENSTON FLOW(MSORS) sSPLIST(MSORS,MPARM) »CAP(MSORS) 
FLOW(JM)=.C1L*CAPUJM)#0O.15 
SPLIST(JMel)=Tel 
SPLIST(IM,21=23 
SPLIST( JM, 3)=27 
SPLIST( IMs 41=C.0 
SPLIST(JMe5)=0.0 
SPLIST(JM,6)=1L61L 
SPLIST(JM, 7)=620 
SPLIST(JM,8)=1Lel 
SPLIST(JMy9)=229 
SPLIST(JM,10)=68 
SPLIST(JM,11)=109 
SPLIST(JMy12)=53 
SPLIST(JM,13)=0.0 
SPLIST(JIM,14)=0.0 
SPLIST(JM,15)=0.0 
SPLIST(JMy16) =62 
SPLIST(JM,17)=C.0 
SPLIST( JM, 18)=0.9 
SPLIST(IMe19)=0.0 
SPLIST( JM, 20)=75 
SPLISTCIM,21)=17 
SPLIST(JMe22)=60 

RETURN 

END 


13/28/17 
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oo dL SUBROUTINE STCW(FLOW,SPLIST»CAP,JMeMSORS,MPARM) k 
ICJ2 CIMENSTON FLOW(MSORS) »SPLIST(MSORS,MPARM) ,CAP(MSORS) 
0003 FLOW( IM) =.01*#CAP( JM) #0. 36 | 
C094 SPLIST(JM,1)=9.83 | 
0005 SPLIST(JIM,2)=0.0 i 
006 SPLIST(IM,3)=13700 " 
occ? SPLIST(JMs4)=C.0 

0008 SPLIST(JM,5)=0.0 

cc39 SPLIST(JM,6)=1L8113 

colo SPLIST(JM,7)=2.0 

oo'l SPLIST(JM,8)=0.0 

OoL2 SPLIST(JM,9)=18180 

0013 SPLIST(C JIM, 10)=67 

0014 SPLIST(IJMs1LL)=100 

oo1s SPLIST(IM,12)=10633 

CcOL6 SPLIST(JM,131=0.0 

cOlT SPLIST(JIMe14)=0.9 

0018 SPLIST(IM,15)=0.0 

0019 SPLIST(JM,16)=020 

90290 SPLIST(JMe17)=0.0 

co2.l SPLIST(JM,18)=0.6 

0022 SPLIST(IM,19)=0.0 

0023 SPLIST(JIMe20)2=75 

0024 SPLIST(JM»21)20.0 

0025 SPLIST(IM,22)=13123 

9026 RETURN 

0027 ENO 
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0001 SUBROUTINE SSAR(FLOWsSPLISTsCAP,JMyMSORS yMPARM) 
cC32 DIMENSION FLOW(MSORS) »SPLIST(MSORS »MPARM),CAP(MSORS) 
9003 FLOW(IM)=.CL*CAP(JMIS1L.5S 

COI4 SPLISTCSM,LI=7el 

0c35 SPLIST(IM,2)=23 

0036 SPLLESTEIM, 3)=27 

ccj7 SPLIST(IM,4)=6.0 

Cco8 SPLIST(IMs5)=020 

cc49 SPLIST(JM,6)=161 

0010 SPLIST( JM, 7)=6.0 

Ooll SPLIST(JM,8)=1lel 

ocl2 SPLIST(IM,S)=227 

0013 SPLIST(JM,101=68 

COLS SPLISTCIM,LLI=1C09 

oOoLs SPLISTEIM¢12)=53 

COL6 SPLIST(JM,13)=0.9 

0017 SPLIST(IM,14)=0.9 

token F:) SPLIST(JIMs15)=0.0 

oc19 SPLIST(JMy16) =62 

0020 SPLIST(IMs1L7I=0.9 
co2l SPLIST(JIM,181=0.9 

0022 SPLISTC SMe t9P=0060 

0c23 SPLISTUIM,20)=75 

JC24 SPLIST(IM,21)=17 

c025 SPLIST(JIMe22)=49 

C026 RETURN 

0027 END 
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ocd SUBROUTINE SSAW(FLOWsSPLIST»CAP,JM»MSORS,MPARM) 
COd2 DIMENSTON FLOW(MSORS) »SPLIST(MSORS,MPARM) »CAP(MSORS) 
0093 FLOW(JM)=.01#CAP(JIM)*0.01 
004% SPLIST(JIMe lL) =265 

0005s SPLIST(IM,2)=0.0 

C26 SPLIST(JMs3)=0.0 

Coc? SPLIST(IMs4)=0.C 

ocos SPLIST(JM,5)=0.0 

co09 SPLIST(JM,6)=9.0 

colo SPLIST(JMy7)=150 

coll SPLIST(JM,8)=0.0 

0012 SPLIST(JIMeS)=100.0 

C013 SPLIST(JMe10)=C.0 

C014 SPLIST(J4e11)=2060 

0015 SPLIST(JMy12)=1500 

C016 SPLIST(IM,13)=060 

col7 SPLIST(J4y14)=C.9 

cols SPLIST(J4,15)=020 

0019 SPLIST(JM,16)=0.0 

9020 SPLIST(JIMe17)=0.9 

oc2l SPLIST(JMy18)=0.0 

0022 SPLIST(JIMy19)=C.20 

0023 SPLIST(JM,20)=150 

C024 SPLIST(JIMs21)=0.0 

9025 SPLIST(JMy22)=0.0 

0C26 SPLIST( JM, 24)=100 

0027 RETURN 

oc28 ENO 


FORTRAN 


oco.l 
C002 
0co3 
0004 
ccos 
0096 
O07 
oocs 
0009 
9010 
ooll 
OoL12 
cols 
OOL4 
cols 
0016 
0017 
C018 
0019 
0020 
0021 
0022 
0023 
0024 
0c25 
0026 
0027 


iv G LEVEL 


21 SANP DATE = 76020 


OIMENSTON FLOW(MSORS) »SPLIST(MSORS»MPARM) ,CAP(MSOR 
FLOW( IM) =.C1*CAP(IM)#100.0 

SPLIST&IMe1l)=364 

SPLIST(JM,2)=57 | 
SPLIST(JIMs 3)=4485 { 
SPLIST(IMy4)=57 ‘ 
SPLIST(IMy5)=0.0 ? 
SPLIST(JMy6)=2217 ‘ 
SPLIST(IM,7)=64 

SPLIST(IM,83=462 

SPLIST( IM, S)=2305 

SPLISTCIM,10)=87 

SPLISTUIMe11)=0.0 

SPLIST(JM,12)=1554 

SPLIST(JM,139=0.0 

SPLIST(JM,14)=0.0 

SPLIST(JMe15)=0.0 

SPLIST(JM,16)=0.0 

SPLIST( IMs LTI=C.9 

SPLIST(JM,18)=0.0 

SPLIST( SMe L9P=9L 

SPLIST( IM, 209=0.0 

SPLIST(IM,21)=575 

SPLIST(IM,22)=60 

RETURN 

€ND 
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| 

SUBROUTINE SANPCFLOWSSPLEIST sCAP, IMeMSORS »MPARM) } 
$ 

| 

\ 
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201 
oG02 
C053 
CC)4 
0095 
G0u6 
ocoT 
ocos 
0099 
cel1o 
coll 
0012 
C013 
COOLS 
0015 
0016 
COLT 
cc18 
0c19 
0020 
0022 
0022 
C023 
0024 
0625 
0026 
0027 


2t 


SPHE 


DATE = 76020 


SUPROUTINE SPHE(FLOW,SPLIST CAP, JIM,»MSORS »MPARM) 


OIMENSTON FLOW(MSORS),SPLIST(MSORS,MPARM) »CAP(MSORS) 
FLOW(JM)=.01*CAP( JM) *100.0 


SPLISTIIMsLI=T.4 
SPLIST(JM,2)=15 
SPLIST(JIM,3)=020 
SPLIST(IMs4)=9 
SPLIST(JM,5)=0.0 
SPLIST(JM,6)=590 
SPLIST(I4y7)=4.0 
SPLIST(IM,8)=CoC 
SPLIST(JM,9)=560 
SPLIST(JIM,10)=56 
SPLIST(IMeL1LI=9.% 
SPLIST(JIM,12)=249 
SPLIST(IM,13)=0.79 
SPLIST(JMy14)=920 
SPLIST(JM,15)=0.9 
SPLIST(JM, 16)=0.0 
SPLIST(JIM,17)=029 
SPLIST(IM,18)=0.0 
SPLIST(JIM,19)=0.0 
SPLIST(JM,20)=C.9 
SPLIST(JMs21)=0.90 
SPLIST(JM,221=0.0 
RETURN 

END 


13/28/17 
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Cool SUBROUTINE SCLE(CFLOW,SPLIST,CAP,JMeMSORS »MPARM) } 
9092 DIMENSTON FLOW(MSORS) »SPLIST(MSORS »MPARM) CAP (MSORS) 
0003 FLOW(IM)=.01*CAP( IM) #10020 
0004 SPLIST(J4,1)=0.0 
0co5 SPLIST(J4,2)=6.8 
0696 SPLIST( JM, 3)=00.0 
0097 SPLIST(JM,4)=5 ‘ 
core SPLIST(J4,5)=000 } 
0co9 SPLIST(JMy6)=U.0 
) 0019 SPLIST( JM, 7)=640 

fi OOLL SPLIST(JM,8)=0.0 
OC12 SPLIST(JIMs9)=0.0 
0013 SPLIST(JM,1C)=3.0 
0014 SPLIST(JM,11)=0.9 

4 cos SPLIST( JM, 12)=229 

COL6 SPLIST(JSMy131=020 
C017 SPLIST(JMy14)=0.20 

C018 SPLIST(JM,15)2920 

: 0019 SPLIST(JMy16) 50.0 
602) SPLIST(JMy17)=020 
0021 SPLIST(JSM, 18)=020 
0022 SPLIST(IMy19)=202 
0023 SPLIST( JM, 20)=006 
0024 SPLIST(JMy 2195020 
C025 SPLIST(JMy22)=020 
0026 RETURN 
0027 END 


FORTRAN [V G LEVEL 21 SCIX DATE = 76020 13/28/17 PAGE 0001 


coc. SUPROUTINE SCIX(CFLON,SPLIST CAP, JMeMSOCRS»MPARM) 
0992 DIMENSION FLOWIMSORS) » SPLISTUMSORSyMPARM) yCAP(MSORS) 
0003 FLOw(SMI=O0.G1L#CAP( $M180, 32 
0094 SPLIST(CIM, L)=201 
0035 SPLIST{JMe3)=13000 : 
9026 SPLIST(JIMs4)=5 
0097 SPLIST(SMy T1= 0053 
c0u8 SPLISTIJM,B8)=202 
9099 SPLIST(IM,9)=6009 
0010 SPLIST(JM,101=3.0 
Ooll SPLIST( JM, 11}=2510 ' 
0012 SPLIST( IMs 12)=35000 
C013 SPLIST(SMs 151=35 
0014 SPLISTCIMy 160-169 
i Cols SPLIST(S%,18}=006 
0016 SPLIST(SM¥191=009 
| 0017 SPLIST(JIMs20)=2006 
0018 SPLIST(JMy220=009 
0019 SPLIST(SMy 231 =3.0 
0020 SPLIST( JM, 24) =500 
9021 RETURN 
0022 ENO 


FORTRAN IV G LEVEL 
Pal sp) | 
002 
0033 
00% 
9695 
006 
0007 
0098 
0099 
0010 
9011 
0012 
0013 
0014 
0015 
ocl6é 
OOL7 
| 001s 
0019 
0020 
0021 


| 
| 


2t SAIX OATE = 76020 13/28/17 PAGE 0001 | 
SUBROUTINE SATX(FLOWsSPLIST sCAPsJMyeMSORS»MPARM) 
OLNONSLON FLOW(MSORS) sSPLIST(MSORS»MPARM) »CAP(MSORS ) 
FLOW(IMI=9.CLECAP (JIM) FO01L70 

SPLISTCIMs LI=L2 

SPLISTEIMe 3)=10500 

SPLIST( IMs 4) =5 

SPLIST(UIMs TI=24 

SPLIST(J%,8)=0.0 

SPLEST(IM,9)=300% 

SPLIST(JM, 101=3.0 | 
SPLIST(JM,129=2290 

SPLIST(IM-¢15)=53 

SPLIST(JM,1L61=1.0 

SPLIST( IM, 18)=0.6 

SPLIST(J%»419)=0.0 

SPLIST( JM, 20)=0.0 

SPLIST( JM, 2232500 

SPLISTCIM,23)=320 

SPLIST(JM,24)=0.0 

RETURN 


END 
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00d1 SUBROUTINE SCWH(FLOW,SPLIST»C APyJMyMSORS yMPARM) 
0052 OIMENSTON FLOW(MSORS) »SPLIST(MSORS+MPARM) CAP (MSORS 
0C33 FLOW( IM) =C.01®CAP(JMD#O.17 
0004 SPLIST(IM,1LI=725 ' 
0035 SPLEST (IM, 32=600 j 
0c SPLIST(J4e4)=10 \ 
0097 SPLEIST(CIM, 7)=10 { 
0008 SPLIST(JM,8)=000 i 
0009 SPLIST(IMs9)=10056 

{ ole SPLIST(JM,10) =3.9 
oolL SPLIST(JSM,12)=50) 
0012 SPLIST(JMe15)=100 
0013 SPLIST(S4,16)=160 
0014 SPLIST{ JIM, 18)=065 

: 0015 SPLIST(JMy19)=0.29 

: cole SPLIST(JMy20)=20 
0017 SPLIST(JM,22)=100 
0018 SPLISTLIM,23)=3.0 

| 0019 SPLIST(JMy24) =40 

0020 RETURN 
0021 END 
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| 0o0v1 SUBROUTE VE SAPNI FLOW, SPLIST»sC APs JMeMSORS »MPARM) 
3032 OIMENSTON FLOW(MSORS)sSPLIST(MSORS,MPARM) ,CAP(MSORS) 
} 0033 FLOw( J) =0.01*CAP(IM)#0.30 
} 0004 SPLIST(IM,1L)=720 
: 0095 SPLIST(JM, 3)=600 
{ 006 SPLIST(S454)=5 
0007 SPLIST( JM, TD=L1 
0078 SPLIST(IM,8)=0.0 
0079 SPLIST(J4,91=759 
9010 SPLIST( Jy 10) =5.9 
OciL SPLIST(JM,121=609 
0012 SPLIST( JM, 150=15 
CO13 SPLIST(IMy160=160 
j 0014 SPLIST(JM918)=005 
: 0015 SPLIST(IM,19)=0.0 
i 0016 SPLIST(JM,20)=20 
j ool? SPLIST(IM,22) =60 
0018 SPLIST(JM,23)=10.0 
j 0019 SPLIST(JM,24)=60 
; 0020 RETURN 
0021 END 


O3027 
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cool 
Q052 
9033 
COG 
0025 
J076 
Q0)7 
00u8 
0099 
goto 
OcLlL 
0012 
0013 
orop 
OOLS 
ools 
ool7 
0018 
0019 
0020 
0021 


a Tey 


2t SNDN DATE = 76020 


SUBROUTENE SNONCFLOWsSPLIST»CAP,JMyMSORS »MPARM) 
DIMENSION FLOWCMSORS)» SPLIST(MSORS,MPARM) »CAPIMSORS) 
FLOW CIMP=0 601 FCAPLSMD40~. 30 
SPLIST(J4st)=2.0 
SPLIST(JM,3)=5009 
SPLIST(J4»4)=16 
SPLISTIIMe7)=300 
SPLIST( IMs 8)=5 
SPLIST(I%,9)= 300) 
SPLIST(I4,10)=5.0 
SPLIST(JMe12)=1090 
SPLESTEIM,15)=25 
SPLIST(JIM, L60=1.9 
SPLIST( JM, 181=0.5 
SPLIST( JM, 19)=2.9 
SPLIST(IM,20)=20 
SPLIST(I4e22)=0.0 
SPLIST(IMe230=10.0 
SPLIST( JM, 243=500 

RETURN 

END 
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ocol SUBROUTINE SGRECFLOWsSPLIST»CAP,JMeMSORS »MPARM) 
cej2 DIMENSTON FLOW(MSORS) sSPLISTIMSORS,MPARM),CAP(MSORS) 
0093 FLOW(J4)=0.01*CAP( JM) #00002 
C094 SPLIST(J4,1)=3.0 

0095 SPLEST(I4,3)=1000 

0026 SOLIST#JM,4)=10 

cou7 SPLIST(JM,7)=10 

0008 SPLIST(JM,8)=1.0 

0c19 SPLIST(IM+9)=4C0 

3010 SPLIST(JM,100=10 

ooll SPLIST(JM,12)=100 

ecl2 SPLIST(JS4,15)=15 

0013 SPLIST(JM, 16)=2.0 

OCl4 SPLIST(J4%,18)=0.5 

0015 SPLIST(JMy191=0.0 

0016 SPLIST(JM,20)=20 

0017 SPLIST(JM,22)=0.9 

0018 SPLIST(JMs23)=520 

0019 SPLIST( JM, 24) =400 

0020 RETURN 

0021 END 
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o0ol 
0092 
0033 
0094 
0015 
0096 
0097 
9008 
0009 
0010 
ooll 
ool2 
0c13 
0014 
0015S 
0016 
OOL7 
0018 
0019 
0020 
0021 


21 + SSAZ DATE = 76020 
SUBROUTINE SSAZ(FLOW,SPLIST»CAP,JM,MSORS,MPARM) 
DIMENSION FLOW (MSORS) eSPLIST(MSORS »MPARM) yCAP(MSORS) 
FLOW(IMD=% 4 CL CAP ( JM) #0. 30 

SPLIST(IM,1)=.3 

SPLIST(J4,3)=200500 

SPLIST(IM+4)=20 

SPLIST( IMs 7)=C.5 

SPLIST(JM,8)=5 

SPLIST(JM,9)=500 

SPLIST( JM, 1O)=1C 

SPLIST(JI4,12)=96C00 

SPLIST(JM,1L5)=15 

SPLIST(J4,16)=2.9 

SPLIST(JM,18)=0.5 

SPLIST(JM,19)=1.0 

SPLIST(IMs20)=20 

SPLIST(JM,22)=0.9 

SPLIST(JM,23)=10.0 

SPLIST(JM»24)=96000 

RETURN 

END 
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FORTRAN 


3091 
J0J2 
6023 
06074 
0025 
0036 
0057 
0c 28 
0099 
0010 
0011 
0012 
0013 
0014 
001s 
OOL6 
OcLT7 
0018 
0019 
0020 
0021 


IV G LEVEL 


zi STNT DATE = 76020 
SUBROUTINE STNTCELOWs SPLIST sCAPsJMyMSORS,MPARM) 
DIMENSTON FLOW(MSORS),SPLIST(MSORS,MPARM),CAP(MSORS) 
FLOW( IM) =9.0L*CAP(JIM)#0.10 

SPLIST(CIMelL=1-5 

SPLIST(J4, 33=40090 

SPLIST(I4+4)=40 

SPLIST(I%,7)=1009 

SPLEST(IM, 9)=8 

SPLIST(IM,99=20000 

SPLIST(J4s1LCV=10 

SPLIST(JMe12)=2590 

SPLIST(JMe15)=1590 

SPLIST(JMe16)=5.0 

SPLIST(J4y18)=C.5 

SPLIST(JMe19)=10.0 

SPLIST(JM,20)=20 

SPLIST(IMs22)=6.0 

SPLIST(JIMs23)=5.0 

SPLIST( IMs 241=5000 

RETURN 

END 
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FORTRAN IV G LEVEL 


OCF1 
0022 
00 3 
C024 
coos 
0C76 
oc07 
0078 
0029 
00190 
ool. 
0012 
0013 
OCLs 
0015s 
0016 
ool7 
0018 
0019 
0020 
0021 


21 SPHZ DATE = 7602C€ 13/28/17 
SUPQROUTINE SPHZ(FLOW,SPLIST»CAP,IMsMSORS »MPARM) 

DIMENSION FLOWIMSORS) > SPLISTIMSORS»MPARM) ,CAP(MSORS) 

FLOW( JM) =CeCL#CAP (JM) #0002 | 
SPLIST(JMelLI=7Te4 

SPLIST(J“%,3)=10C) 

SPLIST(IMs4)=9 
SPLISTOIMe7TI=4 
SPLIST( S49 8)=000 
SPLIST(IM,9)=569 
SPLIST(JM,10)=10 
SPLEST( SMe 12)=249 
SPLIST(JMe15)=20 
SPLIST(JM,16)=202 
SPLIST(JMy18)=20.0 
SPLIST(IM,19) =00) 
SPLIST(JMy 20)=720 
SPLIST(JMy22)=200 
SPLIST(JMy23) =8.0 
SPLIST(JSMy 24)=10 
RETURN 

END 


a 
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eS) 


nan 


FORTRAN 


Cool 
CQ92 
0003 
0074 
oc ds 
0006 
CC)? 
0008 
00)9 
0010 
ocll 
0012 
0013 
0014 
0015S 
0016 
OOL7 
0018 
col9 
0020 
0021 


Iv G LEVEL 


21 SSTP DATE = 76020 


SUBROUTINE SSTP(FLOWsSPLIST,CAP,JMyMSORS»MPARM) 
DIMENSTON FLOW(MSORS) »SPLIST(MSORS »MPARM) »CAP(MSORS) 
FLOW(JM)=9.01*CAP(JMI#0.5 
SPLIST( JM, 1L)=760 
SPLIST( J, 3)=890 
SPLIST( Is 4)=25 
SPLIST(JM,7)=4 
SPLIST(JM.8)=8 
SPLIST(J4,9)=650 
SPLIST(IMy LOV=12 
SPLIST(JM,12)=129 
SPLIST(JM,15)=28 
SPLIST(JMy16)=10.0 
SPLIST(JM,18)=2.3 
SPLIST(JMy19)=0.9 
SPLIST(JMy20)=105 
SPLIST(IMs 220279 
SPLIST(JM,23)=12.0 
SPLIST(JMy24) =70 

RETURN 

END 
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00)1 SUBROUTINE SCWLIFLOW, SPLIST CAP, JMsMSORS,MPARM) 

9032 DIMENSION FLOW(MSORS) »SPLIST(MSORS»MPARM) »CAP(MSORS I 

C013 FLOW(JM)=.018CAP( JM) #0. 061 
0024 SPLISTIIM,2)=16. 

0025 SPLIST(J4e1)=B 04 ; 

0076 SPLIST(IM,3)=700. 

0007 SPLIST(JM,6)=637. 

0078 SPLISTIIM, 7) =06 | 

0C)9 SPLIST(J4,B)=203 ¢ 

0010 SPLIST(JM,9)=643. 

oclh SPLIST(JM,10)=66 

0012 SPLIST(JS4¢12)=1446 

9013 SPLIST(JMy15)=90. 

C014 SPLIST(JM,18)=.35 

0015 SPLIST(JMe21)=436 

0016 SPLEST(IMy220=13%6 

0017 SPLIST(JM,23)=20. 

0018 SPLIST(IMy24)=46 

0019 RETURN 

0020 ENO 
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OO?! SUBROUTINE SODW(FLOW,SPLISTsCAP»JMyMSORS »MPARM) 

6002 DIMENSION FLOW(MSORS),SPLIST(IMSORS »MPARM) ,CAPIMSORS) 
C23 FLOW( IM) =.31*CAP( IM) #0205 

CCI4 SPLIST(JIM,LI=7.1 

oc75 SPLIST(JM,2)=194. 

00 46 SPLIST(JM,3I=740. 

c997 SPLIST(JM,6)=580. 

0978 SPLIST(JIM,7T)=02 

0039 SPLIST(JM, 9)=4. 

OG1O SPLIST(JM,9)=620. 

ooLl SPLIST(J4,10)=40. 

oci2 SPLIST(JS4,12)=1456 

0013 SPLISTIJIM,1L5)=1196 

0014S SPLIST(JMy18)=.12 

co1s SPLIST(JIM,22)=2096 

0016 SPLIST(JM,23)=30. 

Ool7 SPLIST( JIM, 241233. 

0018 RETURN 

0019 END 
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ood1 
0092 
0093 
0094 
9095 
00)6 
0007 
0098 
C029 
oo1Oo 
ooll 
0012 
0013 
0014 
ooLs 
0016 
OOLT 
0018 


21 


SRWS OATE = 76020 | 


SUBROUTINE SRWSCFLOWs SPLIST»CAP,JMsMSORS »MPARM) 
DIMENSION FLOW(MSORS)»,SPLIST(MSORS »MPARM) »CAP(MSORS) 
FLOW( JM) =.01*CAP( IM) *0.039 } 


SPLIST(JMy1)=9.63 
SPLISTIIMs 20=74225 
SPLIST(JIMs3)=43146 
SPLEST(IMs62=23626 
SPLIST(JIM, 7)=1927 
SPLIST(JM,8)=1923 
SPLIST( IMs 9)=2657. 
SPLIST( JM, 1LO}= 304%. 
SPLIST(JSM,18)=23.4 
SPLIST(JIMe20)=159 
SPLIST(JM,y22)=200 
SPLIST(JM,23)=15.3 
SPLIST(JMe24)=10 
RETURN 

END 


me - 
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oooL SUPROUTINE SAPS(FLOWsSPLISTsC 47% —¢JMyMSORS »MPARM) 
ccu2 CIMENSTON FLOW(MSORS) »SPLIST(MSORS,MPARM) »CAP(MSORS) 
0003 FLOW( IM) =.01*CAP( IM)*0005 

0094 SPLISTCJM,1)=13.64 

0095 SPLIST(IM,2)=78. 

0096 SPLIST(IMe3)=2407926 

9037 SPLIST(JIM,6)=271909. 

ooc8 SPLIST(IM, 7)=16.3 

0099 SPLIST(JM,8)=166. 

cc lo SPLIST(JM,9)=2799716 

oolr SPLIST{JM,10)=1C0961~ 

ool2 SPLIST(JM,18)=5256 

ool3 SPLIST(J%s201=159 

0014 SPLIST(JM,22)=1250 

0015 SPLIST(JM,24)=0.0 

0016 RETURN 

0017 END 


C3027 
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cect SUSROUTINE SADR(FLOWsSPLIST eCAP,JMsMSORS »MPARM) 
0052 DIMENSTON FLOW(MSORS) » SPLISTUMSORS,»MPARM) »CAP(MSORS) 
G03 FLOW( I4)=.01*CAP( IM) #0205 

C034 SPLIST(IMelLI=12.7 

ocus SPLIST(IM,2)=4725 

0006 SPLIST¢(IM, 3)=280835. 

ccy7 SPLIST(J4,6)=T1878~6 

co38 SPLESTEIMs 7) =424 

00)9 SPLIST(SM, 8)=55. 

co1o SPLIST(CS4,9I=726106 

ooll SPLIST(JMs 106) =732. 

0012 SPLIST( JM, 181=419. 

o013 SPLIST( JM» 26) =200 

OCcls SPLIST(JMs22)=725 

OcLs SPLIST(IMs24)=0.0 

0016 RETURN 

0017 END 


FORTRAN IV GLEVEL 21 SUPP DATE = 76020 13/28/17 PAGE 0001 


vGdL SUBROUTINE SZPPIFLOW,SPLIST,CAP,IMyMSORS,MPARM) 
0002 OLMENSTON FLOW(MSORS) »SPLISTUMSORS»MPARM) »CAP(MSORS)) 

0c)3 FLOW(JM)=.01*CAP( JM)*100.0 ' 

0094 SPLISTIIM, 1)=266 

0005 SPLIST(I4,2)=164.3 \ 

0026 SPLIST( IM, 3)=B80C45. 

0037 SPLISTO(IM,63=20797, } 

0038 SPLIST(JM,7)=1565.6 } 

6009 SPLIST( JM, 8)=2502 b 

0010 SPLISTLIM, 9)=20825,. 

ocl! SPLIST(JM,1LO)=132~ 

0012 SPLIST(J4,18)=1029. : 
0013 SPLISTLIMy 20) =150 

0014 SPLIST(JIM,22)=0.9 

0015 SPLIST(JMy24)=209 

OOL6 RETURN 

OolT7 END 
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0071 SUPROUTINE SCAPIFLOW,SPLISTsCAP,yJMyMSORS »MPARM) 
CC )2 DIMENSION FLOW(MSORS),SPLIST(MSORS »MPARM) ,CAP(MSORS) 
0003 FLOW( IM) =. CLE¥CAP( JM) #0005 
0004 SPLIST(SMy 1L)=208 
0035 SPLIST (U4, 2)=10. 
0026 SPLIST(IMs3)=2245. 
O0cT SPLIST(JIMe6)=25266 
0078 SPLIST(JIM, TI=LTT.W 
0009 SPLIST(J4,8)=536 
0c10 SPLIST(JM,S)=2550. 
OOLL SPLIST(JMy 10)=24. 
0012 SPLIST(JM,18)=51. 
0013 SPLIST(IM- 20) =150 
; 0014 SPLIST( JM» 22)=0.0 
; OOLs SPLIST(JMs24)=209 
\ 0016 RETURN 
j OOl7 END 


CS8S 


FORTRAN IV G LEVEL 


conL 
0022 
0033 
0004 
0095 
00%6 
oco7 
c038 
0099 
0010 
OOLl 
COLz 
C013 
9014 
oo1s 
0016 


21 SAPK DATE = 76020 


SUPROUTINE SAPK(F LOW SPLIST eC AP, IMyMSORS ¢MPARM) 


OIMENSION FLOW(MSORS)ySPLISTiMSORS,»MPARM) »CAP(MSORS) 


FLOWLIMD=.91L*#CAP(IMIFO 6144 
SPLISTUIMe1)=7.76 
SPLIST( JM, 2)=154. 
SPLIST( IM, 31=773. 
SPLIST(JMy6)=1412. 
SPLIST( JM, 7)=1004. 
SPLIST(JM, 8)=65~ 
SPLIST(IMs9)=21406 
SPLISTLIMs10) =728. 
SPLIST(JM,18)=77. 
SPLIST(5M,20)=200 
SPLIST(JMe22)=100 
RETURN 

ENO 


{ 


_—— 
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FORTRAN IV G LEVEL 


oooL 
9c32 
0033 
0004 
0035 
0096 
OC 7 
6078 
0099 
ooLo 
ooll 
col2 
0013 
0014 
ooLs 
OOL6 


21 


SAHC 


CATE = 76020 


SUPROUTINE SAHCEFL OW, SPLIST»C APs IMsMSORS sMPARM) 


DIMENSTON FLUW(MSORS) sSPLIST(MSORS»MPARM) »CAP(MSORS) 
FLOW( IM) =eOLFCAP( IM)DFO01L 73 


SPLIST(J4,1)=9.5 
SPLIST(JM,2)=61.5 
SPLEIST(C IMs 30=22351. 
SPLIST(IMs6)=57510. 
SPLIST(JMy 7)=1354. 
SPLIST(JM»8)=294. 
SPLIST(JMs9)=58470. 
SPLIST(IM, 10)=965. 
SPLIST(JM,18)=7426 
SPLIST(JMs20)=209 
SPLISTiJM»22)=200 
RETURN 

ENO 


es 
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FORTRAN IV G LEVEL 21 SzPD DATE = 76020. 13/28/17 PAGE 0001 


eehaD § SUDROUTINE SZPO(FLOWsSPLIST»CAPyJMeMSORS »MPARM) 

j 9022 DIMENSTON FLOWEOMSORS) pSPLIST(MSORS,sMPARM) yCAP(MSORS) 
0093 FLOW(JM)=.O01L*CAP(IMI*OV3LT ' 
| 0094 SPLIST(I4,1)=3.0 \ 

cocs SPLESTIIM,20=576 , 
0006 SOLIST( IMs 3)= 8349. | 
O037 SPLIST(J4,6)=33584. ‘ 
0008 SPLIST(IMy7)=14596 i 
00c9 SPLIST(JM,8)=64.7 is 
0016 SPLIST(JM,9)=33700. 

ooll SPLIST(JMy1LOI=115. 

; Qcl12 SPLISTC IM, LBI=1164. 

0013 SPLIST(JIM,20)=209 

; OCLS SPLIST(JM,22)=10 

GOLS SPLIST(JMe24) =1090 
0016 RETURN 
Oo17 END 
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earl SURROUTINE SCADIFLOW,SPLIST»CAPsJMsMSORS »MPARM) 
oc)2 DIMENSION FLOW(MSORS) pSPLIST(MSORS»MPARM) »CAP(MSORS) 
0C 33 FLOW(C IMD=.O0LFCAP( IMD #00129 
0094 SPLIST(JMel)=3.7 
0605 SPLIST(I4,23=5065 
C056 SPLIST( IMs 3) =1164%~ 
i 0097 SPLIST(JIM,6)=1942. 

o0u8 SPLIST(I4,7)=1862 
o0u9 SPLISTUIM+8)=468 
C019 SPLIST(IM,SI=1951L6 
ooll SPLIST(JM,10)=11. 
0012 SPLIST(JM,1L8)=174% 
0013 SPLIST(JMe20)=209 
0014 SPLIST(IM,22)=10 

: ooLs SPLIST(JMs24)=159 
OOl6 RETURN 
ool7 END 


et 


G 


FORTRAN IV G 


ocd 
0032 
0033 
0094 
oc 5 
0026 
ocy7 
0c 28 
0009 
0010 
ooll 


LEVEL 


21 SCOA DATE = 76020 13/28/17 PAGE OO0O1 
SUPROUTINE SCOACFLOWsSPLIST »CAP,JMeMSORS »MPARM) 
DIMENSION FLOWIMSORS) » SPLIST(MSORSMPARM) .CAP(MSORS) 
FLOW(JM)=-201*CAP(JM)#0005 

SPLIST(JMe1l) =8-2 

SPLIST( SMe 6)=22090 \ 
SPLIST(JMs9)=24099 

SPLIST( JM» 1L00=1550 

SPLIST(JMs20)=200 \ 
SPLIST(JMe22)2=120 

RETURN 

END 


C5! 


a=-2 
rare re} 


FORTRAN 


oo} 
002 
6003 
O0G4 
oc j5 
0096 
ogo? 
0008 
00909 


Iv G LEVEL 


21 scoB 


DATE = 76020 


SUBROUTINE SCOR(FLOWsSPLIST CAPs JMyMSORS »MPARM) 


DIMENSION FLUWCMSGRS)»SPLIST 
FLOW(JM)=.01*CAP( JM) #100.0 
SPLISTIIMe 1) =864 
SPLIST( IM ,6)=135516 
SPLIST(IM,9I=14373~ 
SPLIST(JM,10)=1020~ 

RETURN 

END 


(MSORS»MPARM) »CAP(MSORS) 
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900 


10 


21 START 


DATE 


7620 


13/28/17 


SUBROUTINE START(A,sC sNPLIST»FLOW, SPLISTsNBRNCH»MSORS, MPARM yMBRNC oP 


LOLN» XNAME/NTEMP,SAMFRE NMA) 


OI"ENSTON A(MSORS »MBRNC)»CI(MSORS »MPARM) »NPLIST(MPARM) »FLOW(MSORS), 
ISPLISTOMSORS,MPARM) »NBRNCH (MBRNC 92) pPOLN(MPARMs5 ) eXNAME(MSORS Da NTE 


2MP (MPARM)»,SAMFRE(MPARM) »NMA(MPARM) 


COV MON/STOPL/NS eNByNTOP 
COMMON /ALPTOP/NSS NP 
COMMON /MAST/MASTER 
COMMON/PASS/NRPSNRB 
INTEGER*®2 NPLIST 

INTEGER A 

READ( 1,1) NSeNBeNPeNTOP 
FORMAT(415) 

READ( 1+ 9CO) (NPLIST(I) sf=l_NP) 
FORMAT(251 3) 

DO 2 J=1sNS 

READ(1Ls3) (AC Se) e1T=leNB) 
FORMAT((80I1)) 

CONTINUE 

DO 30 T=1+NB 

READ( 1,90 LI (NBRNCH(I oJ) eJ=1 92) 
FORMAT(2A4) 

N=1 

DO 10 I=1,MASTER 
IFCNPLIST(N).NESITIGO TO 10 
DO 20 J=1.NS 
ClJSeND=SPLIST(IeT) 

N=NeL 

CONTINUE 

NSS=NS 


CALL CHK1 (AoC oF LOWs POLN» XNAME pNTEMPyNPLIST »SAMFRE »NMAyMSORS,» 


1MPARM,MBRNC ) 
NRP=NP 
NRB=NB 
RETURN 

END 
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FORTRAN 


ooo1 
0622 


6093 
0094 
0005 
0096 
0027 
0008 
0009 
oclo 
ooll 


0012 
0013 
0014 


9015 
0016 
ocl7 
0018 
oc19 
0020 
co02l 


0022 
0023 
0024 
0025 
0026 
0027 


C028 
0029 
0030 


0031 
0032 
0033 
0034 
0035 


C036 
0037 


0038 
0c 39 
0046 
C041 
C042 
0043 
0044 
0045 


aaAaAa 
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IV G LEVEL 2t CHKL DATE = 76020 13/28/17 


SUBROUTINE CHKLC ALC .FLOW,POLN,XNAME pNTEMP,NPLIST  »SAMFRE,NMAsMSORS, 
LMP ARM, MARNE ) 
DIMENSTON A(MSORS»MBRNC),C(MSORS,MPARM) »pNPLIST(MPARM) »FLOWIMSORS)y 
LPOLN(MPARM, 5) + KNAMECMSORS) eNTEMP(MPARM) »SAMFREIMPARM) ,NMA(MPARM) 
COMMON/MAST/MASTER 
COMMON/STOPL /NSeNSeNTOP 
COMMON/ALPTOP/NSS »NP 
COMMON/NAMED/LENGTH 
COMMON/NAMEC/ISTUP 
INTEGER*®2 NMAgNTEMPeNPLIST 
INTEGER POLN,A 
READ(1L,9I3SILENGTH 
903 FORMATI(I2) 


RM 450 
READ & PRINT THE NUMBER OF PARAMETERS», THEIR NAMES», & METHODS RM 500 
FOR EACH PARAMETER RM 559 
RM 600 


RFAD(1+199)1STOP 

1GC FORMAT(E2) 

195 FORMAT(/1X,*PARAMETER #*,2X,"PARAMETER NAME*», 2X,°# OF METHODS AVA 
LIL. FOR ANAL." +3Xe°# OF SAMPLES TO BE ANALYZED/DAY/SAMPLE POINT,TO 
2TAL #SAMPLES/POINT®) 

L1L5 FORMATO 6Xe12—96X%_S5A4%, BXel le 34XeF 6.1 ,34X,F ToL) 


PRINTIOL RM 750 
101 FORMATE*1L*) RM 800 
PRINT1LO2sNP,ISTOP RM 850 


WRITE (3,905)LENGTH 
905 FORMAT('O'»*THE LENGTH OF THE SURVEY [S "%sf2,* DAYS*) 
102 FORMAT(*-THE NUMBER OF PARAMETERS = %,12/* THE FIRST *eI2e* ARE NORM 900 


IN-COMPETING PARAMETERS") RM 950 
PRINT1LOS RM 1000 
N=1 


DO 200 I=l»sMASTER 
[F(NPLIST(ND.EQe I IREADLIOs (POLNING EE) sg LT E=1—¢5) eNMAUN) » SAMFRE(N) 
TF (NPLISTIN)SEQ.1) TOT=SAMFRE(N) *®LENGTH 
IFUNPLIST(N) sEQeTIPRINTILS eNy ( POLNON GIL) pL L=1L 95) yNMA(N) pSAMFREIN), 
1TOT 
TF(NPLEST(N).EQ.T)SAMFRE(ND=TOT 
TFONPLISTC(N)SEQeTINTEMP( LT} =NMAIND 
TF(NPLISTIN) NEST READILO, CPOLNOIN#L o ILI) sLL=1.5) sNTEMPU I) pe SAMFRE (NG 
11) 
TF UNPLISTIN)SEQ.TIN=NE1 
LLO FORMAT(5A4,5XeT Le 4XeF 601) RM 1250 
200 CONTINUE RM 1400 
WRITE(3¢19) 
FORMAT(*1L*,1OX,* TOPOLOGICAL DEFINITICN DATA* »///,5X_e"*NUMBER OF SOU 
IRCES*, 5%» "NUMBER OF BRANCHES*,5Xe*NUMBER OF OUTFALLS',/) 
WRITE(3¢1) NS»NB»eNTOP 
FORMAT(® Sy lLOX gE 5 920K e155 e20Xe IS ¢///// 91 OX e* TOPOLOGY MATRIX DATAS,/ 
1/) 
DO 2 K=1leNS 
W2LTE (C393) K oe XNAME LK) p (ACK J) 5 J=L 9 NB) 
3 FORMAT(® %95X— "SOURCES oI292KeA4e5Xe80I1L? 
CONTINUE 
WRITEL3e4) 
FORMAT(C® ",2Xe/////_" *y*POLLUTANT MATRIX DATA®,»//) 
D0 40 J=1sNS 
40 WRITE(3 +904) 5 eXNAME(JSI+FLOW(S) 
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0046 
CO4T 
0048 
004? 
0059 
0051 
0052 
0053 
0054 
C055 
0056 
oc57 
cose” 
0059 
0c49 
cost 
C062 
00453 
0054 
0665 
0066 
GO47 
0058 
0069 
0070 
co7l 
0072 
0073 
0074 
007s 


Iv G LEVEL 


904 


33 
901 


20 
900 
902 


30 


32 


31 


21 CHKL 


FORMATC*O*%, *SOURTE %91292X%eA4e2X_ "FLOW 
1=1 

NNP=NP 

IND=G 

IF (NP.GT.6)GO TO 30 

WRITE C3¢99CV CC POLN(SoK) eK=1 95) 5 J=1 ¥NNP) 
W2ITE(3,9CL) 

FORMAT(® *,* SOURCE*) 

O00 20 J=l1eNS 
WRITE(3¢9C2)5—XNAME LS) op (CUS eK) »K=I1 yNNP) 
FORMAT(*O*,2X, "PARAMETER *%,6(5A4)) 
FOUMATCPOt LK ey T2e 1K 2 AG e 4X e6(F1L003e10X)) 
IFC INO.NE.OIGO TO 31 

GO To § 

IFCINDJEQ.ONI=1 

TFC INDJEQLOPNNP=6 

IFCIND.GT.OIGO TO 32 

IND=INDelL 

GO TO 33 

T=NNP#L 

MAT=NNP +6 

IF (MAT.GT&NPINNP=NP 

IF(MAT.GT.NPIGO TO 33 

NNP=MAT 

GO TO 33 

IF (NNPSEQ.NPIGO TO 5 

GO TO 30 

CONTINUE 

RETURN 

END 


*,F10.3) 
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GodL 


0002 


yo033 
0004 
0005 
C006 
oo 27 
0008 
0099 
o0luv 
ooll 
COl2 
0013 
0014S 
0015s 
0016 
0017 
0018 
0019 
0020 
0021 
C022 
0023 
CC24 
0025 
0026 
co027 
0628 
c029 
C030 
0031 
0032 
0033 
C034 
0035 
C036 
C037 
0038 
0039 
0040 
0041 
9042 
0043 
0044 
0C 45 
C946 
0047 
0048 
0049 
0050 
cosi 
0052 
6053 
0054 


Iv G LEVEL 


10 
20 
21 
22 
23 
24 
25 
26 
27 
28 


29 
30 


40 


50 


60 


70 
80 


2 Toe DATE = 76020 


13/28/17 


SUBROUTINE TOP CAsC eX oPe¥ oe FLOW, EFF eNPLIST eNSRNCHy»POLNe XNAME ¢ 


IRANK»FLGPT«MSORS sMPARM,MBRNC,TEST,PT NIB) 


coo000l0 
00000020 


OIMENSTON ACMSORS sMBRNC I »C(MSORSsMPARM) ¢X{MBRNC yMPARM) « PUMSORS sMPADD000030 


IRM} ,Y(MBANC»MPARM),FLOWI(MSORS), 


00000040 


2NPLISTIEMPARM) EFF IMBRNC) »NBRNCH(MBRNC 52) » POLN(MPARM,5 ) »XNAME (MSORSOODCCO5O 


3) ,RANK(MPARM) sFLGPT(MPARM) »PT(MPARM) »NTB(MPARM) 
COMMON/STOPL/NS»NBeNTOP 
COMMON/ALPTOP/NSS eo NP 

CONMON/ TOPLEV/NBB ¢ NPP 

INTEGER A 

INTEGER*2 NPLIST 

TEST=0. 

O00 10 T=1,NB 

OO 10 J=1,NP 

X(T eJI=0. 

READ 2C,AREA 

FORMAT(IF5.2) 

READ 21,4NEUT 

FORMAT(IL) 

READ 22,MENU 

FURMAT(IL) 

READ 23,NCAUS 

FORMAT(IL) 

READ 24,4ACY 

FORMAT(TL) 

READ 25,1TYPE 

FORMAT(IL) 

READ 26,TEMP,AREAP,AREAS ,ABVOL, TFAREA, TFVOL 
FORMATE 9. 341K ge F9e 3a LK gE Ie Se LX eF Ge Sel Xe F Ie Sel Xe F903) 
READ 27TeMLSSeYNeRlLeR2eR3—R4 

FORMATE 9. Fel X oF Ve Fol X oF Ie Sol K oF Ve Sel X oF Ge Sel XyFGo3) 
READ 28eK20eNN 

FORMAT(F 9.39 1X5F963) 

PRINT 3f,AREA 

FORMAT('O*,*CLARIFIER AREA IN ACRES IS *,F603) 
OO 40 IT=1,NS 

XLOG=C(I.1) 

CCl, LI=10.**(-Xt0G) 

00 50 I=1yNS 

DO 50 J=1l,NP 

P(LeJP=C(L,JV*FLOW(T) 

DO 80 I=lyNB 

EFF(1T)=0.0 

00 80 J=1eNS 

IF(FLOW(I).NE202)GO TO 70 

PRINT60.J5 

FORMAT(*O*,*FURTHER COMPUTATION IMPOSSIBLE AS FLOW ‘yI2s* 
TEST=l. 

RETURN 

TF (ACS, 1) eGEeLIR=1~. 

IF (Al JeT).EQ.0R=0. 

EFF(L)=EFF( I) +R*FLOW( JS) 

NAC=0 

NALK=0 

KK 1=4.446E-07 

XK 2=4.688E-11 

00 90 M=1,NP 

TF (NPLIST(M)2EQ.22)NALK=M 


ts 0°? 


00000040 
leloletel shen av) 
009060480 
000009090 
00000100 
00000110 
00000120 
00000130 
00000140 
00000150 
00000140 
O000ILTO 
coocol8so 
60000190 
00000230 
00000210 
00000220 
00000230 
00000240 
00009250 
00600260 
00000270 
00000280 
00000290 
G000033uU 
00000310 
00000320 
00000330 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00000400 
00000410 
0000420 
00090430 
0Cv0G440 
00000450 
00006460 
00006470 
00000480 
00009490 
00000530 
90000510 
00000520 
00000530 
00009549 
00000550 
00000560 
00060570 
60000580 
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9055 
0056 
0057 
3058 


0059 
0040 
o061 
0062 
0063 
006- 

0065 
C066 
0067 
0C68 
0069 
ocTo 
oo7L 
C072 
cc73 
0074 
vOTS 
0076 


0077 
0078 
0079 
0030 
oosl 


0C82 
6083 
0084 
0085 
0086 


Cco37 
0038 
9089 
0090 
o07l 
0072 
0073 
0094 
0075 
0096 
0097 
C098 
0999 
C130 
0191 
0102 
01)3 
C10% 
01905 
0106 
o10o7 


90 TFINPLIESTIM).EQ.24)NAC=M 00000599 
IF (NALKZNES 0. AND.NAC.NE.OIGO TO 110 | COU0L50 
PRINTLOO ! o000ce4IG 

100 FORMAT(*O*, *ALKALINITY AND ACIDITY HAS TO BE IN NPLIST,#22 AND #2400300620 
Ee* 1 000006390 
TEST=le 00000640 
RETURN | 0000065uU 

110 DO 356 f=1,NB H 009000640 
CT=0. 00000670 
NKNT=0 00000680 

00 120 M=1,NP 000uU0690 

120 NTB(M)=0 Oo00007LO 
DO 230 J=1.NS O00007LO 
IF(A(Je1).EQ.0IGO TO 230 00000720 
IF(I.GT.LIGO TG 180 00009730 

130 DO 170 K=1,NP 00000740 
17O XCTeKI=HXCT KVP (SK) 00000750 
HPLUS=PEJ,LI/FLOW(S) 00090766 
ALFAL=1L./(HPLUS/XK14#1.¢XK2/HPLUS) 00000770 
ALFA2=Le /(UHPLUS*®*®2/(XKL®XK2)#HPLUS/KK241.) 00000780 
ALFAZ=1Le/bL.+XKL/HPLUS#XK1 ®XK2 /(HPLUS**#2)) 000VU07T9G 

IF (P(JsNALKIEQ.27IGO TO 140 o0o0008c0 
CTL=(PUSeNALKI/5 700004 (HPLUS-L .OE-L4/HPLUS H*¥FLOW( J) I CAL FALO2.* o00Gc81o 
IALFA2) 00000820 
Cr=CT+CTl 00000830 

MCT sNACD=X(1T,NACI4*+2.*CTL*50000.-P(JeNALK} c00C0840 

GO TO 230 000C0850 

140 IF(P(JsNAC).EQ.C.IGO TO 150 OO0UU0B6yuU 
CTL=(P C5 yNACI/59900Ge+(—-HPLUS#+1.0E-14/HPLUS ) FFLOW( J) /(ALFAL+2.* 00000870 
LALFAZ) oo00c8so0 
Cr=CT¢CTl 00000890 
XCD eNALKI=XCT,NALK) 42. *CT1L*®50000.—-P(J5,NAC? 00009900 
GO TO 230 60000910 

150 PRINTLO0—I 9/3 00000920 

160 FORMAT('O",* FOR BRANCH ",I2-* AND SOURCE *»I2s" BOTH P{JsNALK} 00900930 

1€ P(Js,NACIIS O, YOU MUST ENTER ONE OR THE OTHER NONZERO.*) 00000940 
GO TO 23) 00000950 

180 I}=I-1 00000960 
DO 1990 K=1,1T 00000970 
t=I-K 00000980 
IF(A(J,L)2NE2O)GO TO 200 00000990 

190 CONTINUE 00001020 
GO To 130 00001010 
2C0 DO 210 K=lell 00001020 
IF(LJEQe-NTBIKIIGO TO 230 A 00091030 
210 CONTINUE 00001040 
NKNT=NKNT#L 00001059 
NTRONKNT)=L 00001040 
OO 220 K=1l,_NP 00301070 
220 KET SKI=KXCL,KItX(L SK) 00061080 
CTL=(X(L»NALKI*X(L eNACII/(2.*50000.) 00001096 
Cr=CTscTl 000011uUG 
230 CONTINUE 00001110 
HPLUS=X(I,LI/EFFCTI 00001120 
ALK=X(1T,NALK)I/(575CO.*EFF(I)) 00001130 
CT=CT/EFF(I) 00001140 


ALKL=CT#{ (XKL®HPLUS #24 #XK1L#XK2)/ (HPLUS © #24XK 1 CHPLUS #XK 1®XK2)) 4012000001150 


CE-14-HPLUS**2)/HPLUS 


00001160 
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0108 DALK=ARS(ALK-ALKL) 00301170 
C109 LE CDALK LT. C IGGLIGO. TO 260 00901180 
OLLO IFCALKL.CT.ALKIGO TO 250 00001190 
QUEL 240 HPLUS=MPLUS #1.25992 00001220 
oOll2 ALKL=CT#(( XK1*®HPLUS#2.®XKL®XK2)/(HPLUS ©#24XK1L*HPLUS XK 1®XK2))4(1.000001210 

LE-14-HPLUS##2) /HPLUS 00991220 
0113 OALK=ABS(ALK1-ALK) 000012390 
0114 IF (DALK.LT..COO0LIGO TO 260 00601240 
O115 IF(ALKLeLESALKIGO TO 260 00001250 
O1LL6 GO TO 249 00091260 
OLL7 250 HPLUS=HPLUS*. 794328 000C1270 
O18 ALKL=CT#®((XK1L*HPLUS#26®XK1®XK2) / (HPLUS ®*24XK1 ®HPLUS #XK 1L®XK2)94(12000001280 
1LE-14-HPLUS#®2) /HPLUS 00031296 
0119 DALK=ABS(ALK1~ALK) 00001300 
0120 IF (DALK.LT.200001)GO TO 266 00001310 
0121 IF(ALKL.GEsALKIGO TO 260 00001320 
0122 GO TO 250 . 00001330 
0123 260 X(LyLI=HPLUS*EFF(ID 00001340 
0124 265 OO 270 J=1yNS 00001350 
0125 IF(A(J,1).GE.2)GO TO 280 00001360 
0126 270 CONTINUE C0C01370 
0127 GO TO 350 00001380 
0128 280 DO 290 K=l,NP 00001390 
0129 290 PT(KI=XUT,K) €0001460 
0130 EFFT=EFF(I) 00001410 
0131 IF(ACJS,11.EQ.2160 TO 300 00001420 
0132 IF CACJ,101.EQ.39GO TO 310 00001430 
0133 IF (AlI,T}.E0.4)G0 TO 320 00001440 
0134 30C CALL NEUTRA(NPLIST»MPARM,PT sNALKyNACyEFFT »MNEUT »MENIIyNCAUS»MACY) 00001450 
0135 GO TO 339 00001465 
0136 310 CALL SETTLE(AREAsNPLISTysEFFT,MPARM,PT) 00001470 
0137 50 TO 33) 00201480 
0138 320 CALL DOME(NPLIST»PT,EFFT oI TYPE, TEMP yAREAP» AREAS yABVOL pMLSSeR1leYNe 00001499 
LTFVOL » TFAREAyK20sNNeR2eR3eR4_MPARM) 00001550 
0139 330 00 349 K=1Ly»NP 00001516 
0140 340 XU EeK)=PTIK) 00001520 
O14) 350 CONTINUE 00001530 
0142 DO 409 I=1,N8 00001540 
0143 DO 400 J=1LeNP ; 00001550 
0144 TFCEFF (LT) EQ Oe DY( Led) =0. 00001560 
O1L45 fF (EFF(I).EQ.0.5G0 TG 400 00c01570 
0146 VYOLeSI=K(L eSD/EFF IED 00001580 
O147 400 CONTINUE 00001590 
0148 DO 410 I=1,NB 00001640 
0149 XLOG=Y(1,1) OOCOd1LE1L0 
015¢ IF (XLOG.EQ.0.)GO TO 410 00001620 
0151 Y(1,1)=-ALOG1O( XLOG) 00001630 
9152 410 CONTINUE 00001640 03°62 
6153 00 426 [=1+eNS 00C01650 ig arid 
0154 O00 420 J=1,NB8 00001660 
0155 IFCACTg J) .GTsLIAU IT JI=1 09001670 
0156 420 CONTINUE 00G01680 
0157 NBB=NB 00001690 
| 0158 NPP=NP 00901730 
0159 CALL CHK2(YsNBRNCHyPOLN»s Xe EFF »4SGRSyMPARM,MBRNC) c0001710 
0160 CALL FLAG(PyAyCo Vs POLNyNBRNCH» XNAME yRANKe FLGPT ¢MSORS»MPARM,MBRNC) 00001720 
0161 RETURN 00001730 


0162 END 00001746 
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00)1 SUBROUTINE NEUTRACNPLIST,»MPARM,PT »NALK»NACSEFFT,MNEUT,MENU,NCAUS» 00000910 
IMACY) ! 00095020 
002 OIMENSTON NPLIST(MPARM) »PT(MPARM) | 00000030 
CG 33 COMMON/ALPTOP/NSS gNP 00005040 
6004 INTEGER*2 NPLIST 009C0U56 
0095 RFAL NA2CO3,NAOH 009000060 
00% KK 1=4,446F~-07 { oocoucT7o 
00)7 XK 2=4.683F-11 00000080 
0098 HPLUS=PT(LD/EFFY t 0c000290 
009 ALFAL=1L./(HPLUS/XK141Le4#XK2/HPLUS) 00006190 
OC 10 ALFA2=16 /(HPLUS®®2/(XKL®XK2)+HPLUS/XK2¢1.) 000001190 
oolL AL FAZ=1./01.+XK1/HPLUS#XK1®XK2/(HPLUS#®*2)) 00000120 
6012 IF (MNEUTSEQ.2)GO0 TO 180 00000130 
0013 IF CPTCNALKI.NE.CIGO TO LCL 00060140 
C014 IF(PT(NAC)®NE.OIG0 TO 102 00000150 
elope) LOL CTIN=UPT(NALK)/(5C00G. *EFFTI-1L.E-1L4/HPLUS+HPLUS I /(ALFAL#2e*ALFA2) 00000160 
C016 ACYIN=CTIN®(2, ®ALFAZ+ALFAL) #HPLUS-1 e0E-14/HPLUS 0C0000170 
OOL7 GO TO 103 00000180 
00L8 102 ACVIN=PT(NAC)/159CO0.*EFFT) 00000199 
ocl9 CTIN= (ACY IN-HPLUS#1.E-14/HPLUS)/(2.®ALFAZ*ALFAL) 00000200 
0020 103 H°LUS=1.0F-07 00600210 
0021 ALFAZ=1./0 1.4 XK L/HPLUS#XKL®XK2 /(HPLUS®*2)) 00600220 
6022 ALFAL=1L./(HPLUS/XK14#1.¢#XK2/HPLUS) 00000230 
0023 IF (MENUSE Qs 16 ORs MENUSEQ04)G0 TO 104 00000240 
0024 IF (MENUSEQ. 2.0ReMENUSEQe 3)GO0 TO 105 00000250 
0025 104 CTOGUT=CTIN 00006260 
0026 ACYOUT=CTOUT#(2.*ALFAZ+ALFAL) 00900276 
0027 IF (MENU.ZEQ.61)GO TO 166 00000286 
0028 iF (MENU.ZEQ.4)GO TO 107 00000290 
0029 105 ACYOUT=ACYIN 00000300 
0030 C TOUT=ACYOUT/ (2. *ALFAZ+ALFAL) 00600310 
0031 1F(MENUZEQ.2)GO TO 108 00900320 
0032 IF (MENU.E0.33GO TO 209 00000330 
0033 106 CAOH2=(ACYIN-ACYOUT)/2. 00000 340 
0034 CA1=1.2*CAQH2 - 00000350 
0035 DO 10 L=1leNP 00000360 
0036 TF (NPLIST(L)sEQe12)GO TO LL 00000376 
0037 10 CONTINUE 00600380 
0038 PRINT200 00096390 
3039 200 FORMAT(*9",*NO $04 SO NO CAGH2 NEUTRA‘) 00000400 
0040 RETURN 0900410 
C041 11 OU 12 M=L+NP 00000420 
0062 IF(NPLESTIM).EQ.20)GO TO 13 00000430 
C043 12 CONTINUE 00000440 
0044 PRINT20L 00009450 
6045 201 FORMAT(*O*,*NO CA SO NO CAOH2 NEUTRA®) ; 00000460 
1046 RETURN 00600479 
0047 13 $04=1.94616E-O5*PT(L)/EFFT 000C0430 03063 
0048 CA=CA1L+265E-C5S*PT(M) /EFFT 00000490 xe ees 
0049 CA2=CAQH2+2.5E-C5*P TEM) JEFFT 000605290 
oo5o PT(L)=1.0E~-O7%EFFT 00000510 
0051 PT (NAC) =ACYOUT#EFFT*5000C. 00000520 
0052 PT (NALK )=(2.*C TOUT-ACYOUT) *EFFT*50000. 000v0539 
0C53 SOLYP=CA2*504 00CCO5460 
005% IF (SOLYP.LE.1.32£-04)G0 TO 20 00c00550 
0055 B=CA24S04 00000560 
0056 C=SOLYP-1.32E-04 00000570 


0057 CASOG=(B-(SORT(E**2-4.*C))1/2. 00000580 
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5058 PT(LI=(€0504-CAS04) #96. 0F+03) €EFFT C00G0590 
C059 PT(“)=(CA-CAS04)*40000.8EFFFT CCO00C6.0 
0050 DO 14 L=lyNP 000006!" 
0cél TFINPLIST(L) -EQSS)PTILI=PTIL) + (CAQH2* 74000.-CAS04*1 36000.) EFFT 09000620 
0042 TFONPLISTI(LICEQ.9IPTILD=PTI(LI*CAL*®74000.*EFFT 00000630 
0063 TFCNPLIST(L)CEQSLOVPTILI=PT(L)4#(CAS0O4*#1 36000 .4.2*CAQH2*74000. ) FEF FOO0000640 
iT 00000650 
C064 IF(NPLIST(LISNE~LLIGO TO 14 C0000660 
0065 XMG=PT(L)-(CA-CAL)I®1.0E+05*EFFT c000c670 
0046 PT(L)=XMG4(CA-CAS04) 41, 0E+O5*EFFT 00000680 
0047 14 CONTINUE 000004690 
C068 RETURN 00000790 
00459 20 PTIM)=CA*4COOC.EFFT 00000710 
0070 OO 21 L=lyNP 00000729 
oo7l IF(NPLIST(LICEQ.6)PTILD=PT(L) *CADH2*74000. #EFFT 00000730 
0072 TFCNPLIST(L)SEQ. 9) PTILI=PT(L) *CAL*74000.*EFFT O00C00T40 
O07 TECNPLISTILISEQLLCIPTIL)=PT(L)+62*CAOH2*74000.*EFFT 00000750 
0074 IF(NPLIST(LI.NE*LLIGO TO 21 000U0760 
0075 XMG=PT(LI-(CA-CAL) *1.0E*O5*EFFT 00000770 
0076 PT(LI=XMG+¢PT(MI*2.5 00000780 
0077 21 CONTINUE 00000799 
0078 RETURN c00008990 
0079 107 NAOH=ACYIN-ACYOUT 00000810 
00380 DOO 140 L=1l,NP 0000082u 
0031 TFC(NPLIST(LILEQ.63P TILI=PTIL) ¢*NAOH*®4CCO0. *EFFT 00000830 
0082 TF CNPLIST(LISEQ.9IPTILI=PT(L) *NAOH*®40000. *EFFT 00000846 
0033 140 TFUNPLIST(LIEQs1L7TIPTIL) =PT(L) +NAOH*23000.EFFT 00000850 
0084 PTC LIAL. IE-O7*EFFT 00000866 
00°85 PT (NAC) =ACYOUT*EFFT #50000. 00000870 
008% PT(NALK) =(2.*C TOUT-ACYOUT) EF FT*50000. cocousso 
0C3? RETURN 00000890 
0038 108 CACO3=CTOUT-CTIN 00000906 
0089 CA1L=1.2*CACO3 0o000091C 
0090 OO 109 L=1,NP 00000920 
0091 TF(NPLIST(L).EQ212)GO TO 110 00009930 
0032 109 CONTINUE 00000940 
0093 PRINT202 00000950 
0094 202 FORMAT(*O","*NO S04 SO NO CACO3 NEUTRA*) 00000960 
9095 RETURN 000C0970 
0096 110 OO LLL LL=1leNP 00000980 
0097 TFCNPLIST(LL)2£Q220IGO TO 112 00000930 
0098 LLL CONTINUE 000019000 
0039 PRINT203 00001010 
0199 263 FORMAT(*O*,*NO CA SO NO CACO3 NEUTRA®) 00001020 
Oldl RETURN 00001030 
C152 112 PT(LI=1L.OF-C7SEFFT 60001040 
0193 PT(NATC D=ACYOUT@EFFT*50C0%. 00CVU105u 
0154 PT(NALK)=(2.*C TOUT-ACYOUT) CEFF T*50000. 00001060 
0105 SNS=1.0416E-O5¢P TIL) /EFFT 00991570 pe 
6136 CA2=CACO3*+2.5E-CSSPTILLI/EFFT 000G1C89 O3CS1 
O127 SOL YP =CA2*5S04 00001090 
0198 IFCSOL VP LEs1Le 32E-G4)IGO TO 113 00001190 
0149 B=CA2+S04 00001110 
o110 C=CA2¢S04-1.32E-C4% 00001120 
Cilli CASO0G=(B=-( SORTIR&#2-4.°C) I) /26 00001130 
9112 PT(LI=(S94-CAS04)%960C0. #EFFT 00001140 
C113 PT(LLI=PTILLI + (CAL=-CAS04)*4C000.*EFFT 00001150 
011s DO 114 L=1,NP 00001160 
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O1lS TF(NPLISTO(CILEC.GPPTILI=APT OLD + (CACO3#) ££ +05-CAS04¥1 36000. J *EFFT 00001170 

C116 TFINPLISTOLI CEQ. TIPT(LI=PTOILI+CAL#LSEtUS@EFFT 00001186 

OlL7 TFINPLIST(LISEQSLOIPTOIL Y=PT( LI + (CASO44#1 36000. +.2*CAC03 #1 2E4+05) *EFFO0001190 

1T 00001200 

0118 IFINPLIST(L)SNE*LLIGO TO 114 00001210 

O1lg9 XMG=PT(LI-(PT(LLI-(CAI-~CASO41 #40000. EFF I*2.5) 00001220 

0120 PT(LI=XMG+PT(LLI#2.5 00901230 

0121 114 CONTINUE 00001240 

0122 RETURN 00001250 

0123 113 PTILLI=PT(LL)+CAL*®40CO0.*EFFT 00001260 

0124 DO 115 L=leNP Q0001276 

0125 TFENPLISTIL),EQs6)PTIL) =PTIL) *CACO3*] .E+OS*EFFT Q0001280 

0126 TFENPLISTIL).EQ.9IPTILY=PTIL) +1.2*CACO3*74000.*EFFT 00001290 

C127 TF ENPLEISTILDC EQ. LOVPTIL D=PTIL I 4(.2*CACO3*1.E+05) SEFFT 00001340 

0128 TF(NPLIST(LISNELLIGO TO 115 00091310 

0129 XMG=PT(LI-(PT(LLI-CAL#L.OE*OS*EFFT) 00001320 

0130 PI(LI=XMGHPTILLI*2.5 00601330 

O1sl 115 CONTINUE 00001349 

0132 RETURN 00001350 

0133 209 NA2CO3=CTOUT-CTIN 00001360 

0134 PTC LI=LLOE-O7*EFFT oc0c1370 

0135 PT(NAC )=AC YOUT*EFFT#50000. 00001380 

0136 PT (NALK )=(2.*C TOUT-AC YOUT) *EFF T*50000. 00001390 

0137 DO 116 L=l »NP 00001400 

0138 TFINPLIST(L)SEQ.6)PT(L)=PT(L) #NA2CO3*106000.*EFFT 00001410 

0139 IFINPLIST(L) EQ. DIP TILI=PTIL)+NA2CO3*106C00. *EFFT 00001420 

0140 116 IFENPLISTILISEQeL7TIPTIL Y=PT(L 142. *NA2CO3*23000~ 00001430 

OLé4l RETURN 00001440 

0142 180 IF(PTENALK).NE.CIGO TO 117 . 00001450 

0143 ITF{PTINAC).NE.OIGO TO 118 00001460 

{ 0144 LLT ALKIN=PTINALK)/ (50000. *EFFT) 00001470 

0145 CTIN=(ALKIN-1eE~L4/HPLUS*#HPLUS) / (ALFAL+2.*ALFA2) 00001480 

} 0146 GO TO 12 00001490 

| Q147 118 CTIN=(PT (NACH /(5C 000. #EFFT I-HPLUS*+1LeE~14/HPLUSI/(2.*ALFAZ¢ALFAL) 000015090 

0148 ALKIN=2.®CTIN-PT(NACI/ (50000. *EFFT) 000015190 

0149 121 HPLUS=1.E-07 00001520 

0150 ALFAL=Le/(HPLUS/XK1L+1.¢XK2/HPLUS) 00001530 

O151 ALFAZ=L./CHPLUS ##2/ (XKL®XK2)¢HPLUS/XK2¢1.) 00001540 

0152 TF(NCAUS.EQ221G0 TO 127 00001550 

0153 CTOUT=CTIN 00001560 

0154 ALKOUT=CTOUT#(ALFAL#+2.*ALFA2) C0001570 

0155 PTC LI=1L.DE-OT*EFFY 000015560 

0156 PT(NALK)=ALKOUT#EFFT*50000. 00001590 

| O157 PT{(NAC )=(2.*C TOUT~ALKOUT) *EFFT*50000.~ 00001600 

| 0158 IF (MACY.NE1)GO TO 123 00001610 

C159 H2S04=(ALKIN-ALKOUT) /2¢ 00001620 

| 0160 DO 122 L=lyNP 00001639 
O1l6l TF C(NPLESTILISEQ.6)PTIL Y=PTIL) #H2S04*98000. FEF FT 00001640 anen 
0162 TF(NPLESTILICEQS FP PTIL) =PTIL) #H2S04*980006 *EFFT 00001550 DOD 

O1L3 122 TFCNPLISTILICEQ.L2)PTILY=PTIL) #H2S04*96000.*EFFT 00001665 

0164 RETURN 0000167C 

C165 123 LTFCMACY.NE221GO TO 125 G0001630 

01456 HCL=ALKIN-ALKOUT 00061699 

0167 OO 124 L=1ly—NP 000017090 

0168 TF(NPLIST(LISEQS6)P TIL I =PTILP CHCL #36500. EF FT 00001710 

0169 TFONPLIST(LISEQSIIPT(LI=PTI LD +HCL #36500. EFFI 00001720 

0170 124 IF(NPLIST(LILEQ.1LSIPT(LI=PT( LD +HCL #35500. EF FT 00001730 

0171 RETURN 00001740 


f 
| 


FORTRAN 


Iv G 


LEVEL 


125 


126 
127 


128 


21 NEUTRA DATE = 76020 


HNOJ=ALKIN-ALKOUT 

Of 126 L=leNP 

TF (NPLISTILIPCEQSG)PTILD =PTIL) +HNO3*630900.4EFFT 
TFUNPLESTCLICE QS 7IPTILD=PTIL) +HNO3*62000.8EF FT 
TFINPLESTUIL DEQ. 9IPTEIL I =PTIL) H+HND3% 63000. FEF FT 
KETURN 

ALKOUT=ALKIN 

CTOUT=ALKOLT/(ALFALO2.*ALFAZ5 

Ca2=CTOUT-CTIN 

PrCLI=L.OE-C7#EFFT 

PT (NALK) =ALKOUT#*E FF T#50090. 

PT (NAC )=(2,.*C TOUT-ALKOUT) *EFF T*50000. 

DO 128 L=1,NP 
TFUNPLISTILISEQS6)PT(LI=PT(L) +C02*44000. *EFFT 
TFENPLESTOLICEQe 9) PTIL) =PT(L) #CO2*44000.*EFFT 
RETURN 

END 
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SUPROUTING SETTLE CAREANPLIST,EFFT ¢MPARM,PT) 
DIMENSION NPLIST(MPARM) -PT(MPARM) 
COMMON/PASS/NP NB 

INTEGER #2 NPLIST 
XP=2.7182**(-EFFIT/(2780.#AREA)) 

RE = (1, -e B2EXPYV SEL eo ~e ON205 EXP) 

OO 10 K=1,NP 
TFINPLISTOK) CEQ.2) PTI KI =. 3*PT (KD +. T#PT(K) ®RE 
TFUNPLISTOK) EQS IPT (KI=.3*PT (KI ¢e THPTIK DORE 
TFCNPLIST(KI.EQ.3)GO0 TO 15 

IF (NPLISTIK).EQ.9)GO TO 25 

TF ENPLISTIK).EQsLOIPT(KI=PT(K) *RE 

TF ONPLIST(K)CEQeLOUPTI(K)=PT(K) RE 
TF(NPLIST(K).EQe.23)P TIKI =PT(K) RF 

GO TO 1O 

DO 16 L=1l>NP 

IF(NPLEST(LI.EQ.5IGO TO 17 

CONTINUE 

GO TO 10 

PT(K)=PTILI+RES(PT(K)-—PT(L)) 

GO TO 10 

IND=0 

DO 30 L=1lyNP 

TF (NPLIST(LI.NE*63GO TO 30 

INO=1 

M=L 

GO TO 35 

CONTINUE 

OO 31 LL=1L,NP ‘ . 

IF UNPLIST(LL) cEQsLOeANDeINOSCEQLIGO TO 36 
GO TO 37 

INO=3 

MM=LL 

GO TO 39 
TFUNPLIST(LL) «EQ. 1L0.AND.IND.EQ.0IGO TO 38 
GN TO 31 

IND=2 

MM=LL 

GO TO 39 

CONTINUE 

IF(INDJEQ.20)GO TO 10 

IFC INDEQeLIPT(KI=PT(MI#RE®(PT(KI-PT(MIS 
IFUIND.EQ.2)P TIKI =P TIKI-PTEMM)+RESPT (MM) 
IF CINDsEQs3IPT(KI=PT(MI+RE*PT (MM) 
CONTINUE 

RETURN 

END 
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00000240 
00000250 
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000003390 
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00000360 
00000370 
00000380 
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00000490 
00006410 
00200420 
006090430 
€0006440 
00000450 
00000460 
00000470 
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C029 
0036 
3031 
0032 
0033 
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SUBROUTINE DOMECNPLIST,PT,FLOW,I TYPE, TEMP ,AREAP AREAS »ABVOL 
Lo MLSS sRL ea YNe TEVIL y TFAREAGK20 eNNeR2gR3gR4_eMPARM) 

COMMON /ALPTOQP/NSS NP 

DIMENSION TT(25),PT(MPARM) 

INTEGER *2 NPLIST(MPARM) 

REAL MLSS+K20 9NNeKD eo NKR eNKS 9 K20 

DATA TT/25#-1./ 

DO 2 J=L,NP 

TTENPLIST( SDD =PT( I) /7FLOW 
RF=1.e-e828EXP(-FLOW/(2780.*AREAP))D/ 
Ll (1.-.0°205*E XP (-FLOW/( 2780. *AREAP))) 

TF(TT(6) .LT. On ANDO’ THC(LOD .GEe OITT(6)=TTI9I-TT(IO} 
TFCTT(6) «GE. O«. sANDe TTCLO) LT. OVEFT(LII=TT(9DI-TT(6) 
TF(TT(6) .GE. 049 sAND. TTC LOD .GE. O.OV TTD =TT(6)+TTI10) #RE 
TIHCBI=TTISPHCT TCR I-TTUS) DORE 

TTC LOV=TILCLO) ERE 

TT(16)=TT(16) *RF 

TE(230=TT (23) #RE 

TV(2) =e 3*#TTI204.7*TT(2)*RE 

TT(GD=TT04)%. SH TT (49%, THRE 

TV(25 b= 6 SFT TC 250+, THT EC 25) ORE 

GO TO (344) eI1TYPE 


3 R=R4/FLOW 


W=TT(25) *FLOW#8B, 34 
F=(LeO#RI/(1.C#O.L*RIS*2 
E=1L.0/(1.0#0.CO85*(W/( TEVOLFF ) 40.5) 
E€=F*1.038*4*( TEMP-20,) 

TIELOV=TT (10) 4.2%(TT125)*8. 34*FLOW-E*TT(25) 8.3468 (FLOWFRS) DS 
Ll (8.34*(FLOW+RS)) 
TT(2)=TTV(2)-TT(25)(1.-E) 
TT(4)=TT(4)-TT(25)*(1.-E) 
TT(25)=TT(25)4E 

D=TFEVOL/TFAREA 

Q=(FLOWFHRS)/TFAREA 

K20=K20*1.07*#*( TEMP-20.) 
E=EXP(-K20*D/0#*NN) 

TTC TI=ATTI TIFT TCSI-TICSIFE 
TI(BI=TTIBI-TTCSD#(1.-E) 

TT(SV=TTISIFE 

FLOWR=FLOW*R4S—-R2 
RF=(1.-.82*EXPL-FLOWR/(2780.*AREAS)I IIS 
lL (1.--0C295*EXP(-FLOWR/ (2780. AREAS) II 
TTC LGV=TTCLOI¥RE 

Go T3 5 

IF(TTI25) -LEe 0.591960 TO 5 
PLI=TT(25)*FLOW/(MLSS*ABVOL) 

THE TA=1L.G/0YN*®PLI) 

FLOWR=FLOWERIL 
BOO=TT(25)-MLSS*ABVOL/(YN#*THETA*FLOWR ) 
TT(2d=TT(2)-TTt(25)4+BOD 
TT(4)=TT(4)-TT(25)+BOD 

TT(25)=B90 

TT(LO)V=MLSS 

SAREA=AREAS #4047, 

SSF=TT CLO) FFLOWR*3, 785/24. /SAREA 
TT(10)=4.5+8.6*SSF 

TFC TT(S) .LE. GO2IGO TO 40 

TEMP 1=ABVOL /THETA 
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20205 
NKS=1.9 
NKR=0.33*1.1238¢( TEMP-20.) 
DT=ABVOL/FLOWR 
K21=Y*FLOW*TT(5)*® THE TA/ABVOL 
KLOW=0.- 
KUP=2. 4X2) 
1x=0 
S21=.5*TT(5) 
SLOW=0. 
SUP=TTI5) 

1s=9 
S22=S2L¢(NKR*ES2LEK21L¢D TI /( YeCNKS*+S21)) 
K22=KZL-(NKRESZLEXZLEOTI/S(NKS*¢S21) 
SLT7=€S22*FLOWR-TTES) FLOW) /RI 
KLT=K22*®FLOWR/RL 
O$2=S21-S17 
TF CABS (D0S23~0601929929922 
1F(15-20)24,29,29 
1F(08S2127,27,25 
SLOWw=S21 
$21=S21+0.5*{SUP-SLOW) 
IS={Sel 
GO TO 15 
suP=S21 
$21=S21-0.5*{ SUP~SLOW?) 
IS=ISel 
GO TO 15 
KL=FLOWRE X21 
K2=FLOWR*X22 
K2=(KL-K2)/X21 
DxX2=TEMP1-XK2 

1F (ABS(0X21-0.1)50+50430 
TF (XK2L-0.COLI40,40, 32 
TF (C1X-20)31040049 

TF (DX2137,37.35 
KUP=K2L 
K21L=X21-0.5(KUP-XLOW) 
IX=1Kel 
GO TO 10 

KLOW=x21 
K21=K2140.5®(XUP-XLOW) 
Ix=[xel 
Go TO 10 
TTC TIATTITI4TT(59-S2k 
TT(68)=TT(8I-TT(5)4S21 
TH(5)=S21 
CONTINUE 
DO 6 J=l_NP 
PTC JV=TTCNPLIST(J))*FLOW 
RETURN 
END 
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SUPROUTINE FLAGIP sAgC oe ¥ePOLNeNBRNCH,y XNAME pRANK eg FLGPT »MSORS»MPARM, 
UMERNC) 

DIMENSION P(MSORS,MPARM) ,A(MSORS,MBRNC) »CIMSORS »MPARM) »Y(MBRNC MPA 
1RM),POLN(MPARMs5) sNBRNCH(MBRNC 92) »XNAME(MSORS) » RANK (MPARM),FLGPT (M 
2PARM) 

COMMON/STOPL/NS »NByNTOP 
COMMON/ALP TOP /NSS 9 NP 

INTEGER POLN,»A 

INTEGER*2 NX(50},NY(50? 

00 5 T=1,NP 
RANK{(T)=0. 

READ(1L,9IOVIFLGPT( I), 1=1_.NP) 

FORMAT(25F3.2) 

WRITE(3,9CL) 

FORMAT(*1L*,8X,"PARAMETER MINIMUM FLAG LEVELS*?) 
CO 15 T=1,NeP 
PRINT 902, (POLNCE eNNI »NN=1 95) eFLGPTUE) 

FORMATC*® %,5X_5A4—e2XeF 362) 

00 10 T=1,NP 
DO 10 J=1,NS 
RANKCTD=RANK(T DPC J,1) 

DO 20 J=1,NP 

TFCRANK(J).EQ.0.9GO TO 20 
00 20 [=1,NS 
TEMP=PUE,JI/RANK( JS) 

TF(TEMP.LT.FLGPT(329GO TO 20 
00 40 K=1+NB 

TF CATT «K).NE~O0IGO TO 50 
CONTINUE ‘ 

TFCV (Ke SP GECOe IV (Ke SERV (Ko SI 
CONTINUE 
READ( 1» 903)NF 
FORMAT(I2) 

IF(NF.EQ.CIGO TO 60 
O00 60 [=1,NF 
READE Le FOS4INXOETINYET)D 
FORMATCI2¢1XeT2) 

WRIETE(3,905)NEF 
FORMAT(*0O*,*THE NUMBER OF FLAGGED POINTS IS ‘,12) 
DO 90 IT=1L,NF 
NSUB=NX(T) 

NSUBL=NY(T) 

PRINT 9O6,NX( I), XNAME(NSUB), (POLNINSUBL »NN) »NN¥1,5) 
FORMATE® *,*SOURCE *e32e* » *»AGs* THE PARAMETER IS "sS5SA4) 
OO 70 f=1,NF 
NSUBL=NY'T) 

NSUBSNX(1T) 

DO TL J=1—NB 

IF CA(NSUB,J12EQ.01GO TO 71 

IF (YC SsNSUBL) -GE.Oe FY (J yNSUBLI=R—¥(9eNSUBL) 

Go TO 7c 
CONTINUE 
CONTINUE 
CONTINUE 
READ 903,NFB 

IF(NFB.EQ.CIGO TO 100 

PRINT 905,NFB 
OO 81 I=1.NFB 
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READ 9O4,NX(T) NYO) 

NSUB=NX(T) t 

NSUBL=NY(1) 
PRINT 910¢NX( 1) 9 ({NBRNCH(NSUB yNN) gNN©1 92) 9 (POLN(NSUS1 MM) gMM=l 95) 
FORMAT(* *,*BRANCH "sI2," » ‘s2A4—e" THE PARAMETER IS *»5A4) 

LF (Y(NSUB ¢NSUBL).GE.0.) ¥(NSUB »NSUBL) =-Y (NSUB»NSUBL ) 

CONTINUE { 

RETURN | 

END 
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oodl SUBROUTINE CHK2(Y¥ »NBRNCHyPOLN»sXsEFF»MSORS »MPARMyMBRNC) 
0002 OIMENSTON Y(MBRNC »MPARM) »NBRNCH(MBRAC 42) »POLN(MPARM,S ) 4X (MBRNCyMPA 
2RM), EFFEMARNC ) 
C003 INTEGER POLN 
C004 COMMON/TOPLEV/NB yNP 
0095 COMMON/NAMEC/ISTOP 
0096 NFLG=0 
C007 WRITE (35904) 
0008 OM 40 [=1,NB 
0099 40 WRITE(3,903)Ts(NSRNCH( ILL) pL L=292) 2EFFUI) 
ooLo 903 FORMAT(*O' 4X o12e5Xe2A4s5XeF 10.3) 
0011 904 FORMAT(*1L*,*BRANCH NOs AND NAME FLOW!) 
| 0012 WRITE(3,2) 
; 0013 2 FORMAT(*1*,*OUTPUT POLLUTANT DATA MATRIX FROM TOP SUBROUTINE®) 
§ OOLS WRITE(3e¢1) NByNP 
f OOLS 1 FORMAT(* *,5X—e*NUMBER OF BRANCHES=*»13e5Xe*NUMBER OF PARAMETERS=", 
113,/) 
0016 55 t=1 
0017 NNP =NP 
0018 INOD=0 
0019 IF (NP.GT.61GO TO 30 
0020 33 WRITE (3.900) ( (POLN( JK) yK=1 95) pJ=I 9NNP) 
0021 MRITE( 3,901) 
0022 DO 20 J=1,NB 
0023 20 WRITE(3 4902939 ENBRNCHE Se LLD gp LL=le 2d el VE SeK) eK=I eNNP) 
0024 902 FORMAT(* *,* ELEMENT®) 
0025 900 FORMAT('0', 2X, "PARAMETER *,6(5A4)) 
i 0026 9OZ FORMAT (80% y L291Xe2AGe6(F1203e BX)? 
i 0027 TF (IND.NE.OIGO TO 31 
i 0028 eo TO 5 
C029 BO TFL IND.EQ.O)T=1 
0030 GF CIND.JEQ.0)NNP=6 
0031 IFC IND.GT.0IGO TO 32 
0032 ENO=INDtl 
} 0033 GO YO 33 
0034 BP £=NNPe+l 
0035 AT=NNP 46 
C036 IF (MAT.GT «NPI NNP=NP 
0037 fF (MAT.GT.NPIGO TO 33 
Cc 38 WNNP=MAT 
0039 GO TO 33 
0040 31 TF(NNP.EQ.NPIGO TO 5 
0041 Go TO 30 
0042 S$ CONTINUE 
0043 IF(NFLG.EQ.1IGO TO 60 
0044 WRITE (34905) 
0945 905 FORMAT(*1*,*MASS OUTPUT INFORMATION, POUNDS PER DAY *) 
0046 DO 50 I=1sNB 
0047 00 50 J=1.NP 
0048 TECYOT eS) eLTeOe XCD ep JDE-XUT Jd) C3IE7= 
0049 50 YC, JI=X(1,59*8. 3454 
c050 NFLG=1 
ocsl GO TO 55 
0052 60 DO 61 f=1sNB 
0053 DO 61 J=1,NP 
0054 . IF(EFFUI)LEQs0O. IV (Ly J)=0. 
0055 IF(EFF(I).EQ.0.)G0 TO 61 
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CONTINUE 

DO 80 I=1,NB 
TE(Y(T,1).60.02160 TO 80 
XSUB=Y(T el) 

IF CYC 1,1) .LT. 0.) XSUB=—XSUB 
IF(V(1Ty1).LT.02)GO TO Bl 
V(1,l)=-ALOGLO(XSUB) 

GO TO 80 
Y¥(1,1)=ALOGLO(XSUB) 
CONTINUE 

RETURN 

END 
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EVEt 21 CORRCT DATE = 76020 13/28/17 
SURROUTINE CORRCT (NPLISTsCyoEFF eX sFLOWsAeP eV, OC000U10 
LPOLNeMSORS es MPARM, MERC) CO9CUD2uU 
IMPLICIT INTEGFR*211) 00000046 
INTEGER*2 MESUR(25) ,» BPLIST(25,20) » ATSCAN » UN » NUNPR , 000CCG50 
$ NUN » COUNT » COUNTL ¢« UNIQ(25) » FLAG » UNDET » K 9 KK ¢ 00J00060 
$ NUNTIQ(¢25) » NSURSC(25) , NNOTD(25) , ATUNIQ(25) . NPLIST(25) 0c00007G 
INTEGER AyUNK 90000080 
DIMENSION 1CONS(25) 2 ¥M(25525) »C(MSORS »MPARM) yPOL.I(MPARM,5) 9 FLOW 00000090 
LOMSORS)- X(MBRNC »yMPARM) p@EFFEMBRNC ) gALMSORS eMBRNC) »pY(MBRNCgMPARM), OO00U0L7U 
304625225) sFLOWM(25)¢ TCONS1(25) eNUNK(25) Coo000110 
COMMON/STOPL/NS yNBgNTOP 00000120 
COMMON/ALPTOP/NSSoNP Q00001 30 
PRINTS e¢NByNSeNP 00000140 
S FORMAT(*O* y*NB= "yE29* NS= *el2e* NP= *,512) cC000Uu150 
READ( 1,1) (MESUR(T),f=1.NB) 00000160 
tL FORMAT(8911) GO000170 
00 2 {8 = 1eNB 00600180 
IF(MESUR(IB).EQ.°) GO TO 2 00000190 
REAO(1e3)} (BPLISTCIB WN) sN=1-29) 60000250 
3 FORMAT(2912) 60000210 
IBPLST=BPLIST(IB,s1) 00000220 
READ( 1.4) (YMC IB yN}D»N=1L,IBPLST) 00000230 
4 FORMATIF20.6) 00000240 
2 CONTINUE 0006250 
UN = 6 00000260 
NUN = 0 00000270 
000002890 
DO 100 IT=1+NB €0090290 
ITF (MESURIT}.EQ.0) GO TO 100 00000300 
IF(UN.EQ.NSIGO TO 1409 C090G310 
DETERMINE CONTRIBUTING SOURCES TO THE BRANCH 00000320 
TFLAG=0 00000330 
Ic = 0 00600340 
CO 10) J=1,NS 00000350 
IF(A(IS,1).E0.0) GO TG Lo 00C0C360 
IB 2 Te #2 00000370 
ICONSCIC) = J 00000380 
IF(IFLAGZEQ.10) GO TO LO 00000390 
TIl=teh 00000400 
00 1200 K=lIyI 00000419 
L=!I-K 00000420 
IF (ACIeLd-GT21L? GO TO 1205 00000430 
1200 CONTINUE 00000440 
Go ¥O 10 009004590 
1205 [FLAG=10 0G006C460 
10 CONTINUE 00000470 
00000480 
IF(IC.EQ.1% GO TG ll 00000490 
MORE THAN ONE SOURCE AND MEASUREMENT AT THE BRANCH OCGOC5C9 
COUNT = 0 00000510 
IF(UN.EQ.9) GO TO 1G0 06006520 
00 19 «IN = 1¢UN 00660530 
OG 19 I16C = Tei 00000540 
IFC ICONSC ICC) .NE-UNIQC INI GO TA 19 00000559 
COUNT = COUNT + 1 00000560 
19 CONTINUE 00000570 
IF( CL IC~COUNT).EQ.1) GO TO 15 00000580 
TF ¢{1TC~COUNT).EQ.0) GO TO 100 00000590 
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4 c 00000699 
06590 GO To 100 ! 00000610 
0051 Ll CONTENUE | C0900620 
C ONE SOURCE CONTRIBUTING 00000630 
0052 FLAG = O P 0000640 
0053 IF(UNJEQ.0) GO TO 21 006u0650 
0054 DO 22 IN = 1,9UN ‘ 00v00640 
cCc55 22 IFCICONSCIC)SEQeUNIQUINI) FLAG = 10 i 00000470 
C056 IF(FLAG.EQ.10) SO TO 100 00000680 
0057 21 MESUR(T)=2 00000590 
6068 UN = UN #1 00000790 
j 0c59 UNTO(UN) = ICONSCIC) 00009716 
: 0069 TRPLST = BPLIST(I,1? 00000720 
’ 0061 DO 30 IP = lyIBPLST 00000730 
0062 IFCIP.NE.1L)) «=©GO TO 31 00000740 
C063 F = FLOWLICONS(IC)) 00000750 
i 0064 FLOWMCICONSLIC)) = YMCIs IP) coccg760 
0065 WRITE(3,39C)ICONS(IC) gl yBPLIST(I yl) 00000770 
: 0066 300 FORMAT(////* SOURCE NUMBER *,14,° IS UNIQUELY DETERMINED ON 00000780 
$ BRANCH *,I4,* WHERE *,I4,* PARAMETERS WERE MEASURED. 'e/) 00000790 
0067 WRITE(3,306) F » YM(TyIEP? 00000800 
0068 306 FORMAT(20X,* FLOW "y10Xe* MODEL '*,F20.6," MODIFIED TO ", 00000810 
& F20.6./) 00000820 
0069 GO TO 30 00000830 
32079 31 00 32 KK=1,NP 00000840 
0071 32 IF(BPLIST(I,IP)sEQsNPLIST(KK)) K = KK 00000859 
0072 IF CLFLAG.EQ.10) GO TO 1220 00000866 
0c73 CM(ICONS(IC),KI=YM(I,IP) 00000870 
0074 WRITE(3,307) (POLNGKy TET) gS TE1=1¢5) » YMC Ie IP) eYI1 eK) pYMUI, IP) 00000880 
co7s BOT FORMAT(129X,5A4_2X_" MEASURED "yF2006,10Xe" CALCULATED *yF20.69/400000890 
8 20X,* SOURCE CORRECTED TO *yF20.6e/) C0C00990 
0076 GO TO 30 00000910 
co77 L2LC PER=CCECONS (IC) sK) *®FLOW(ICONSLICD DSK 9K) 60000920 
0078 OMCS=YM(L,IPI*YM( Te L)*PER 00060930 
0079 CCS=PMCS/YM(Ty1? - 00000940 
00RG CMCICONS( IC) sKY=CCS 00000950 
OcaL WRITE(3 9307) (POLNEKe FID) o TEL=1¢5) ¢ YMC Le IP) e¥iTeK) CCS 00000960 
0632 30 CONTINUE 00000970 
0083 GO TO 100 00000980 
C UNIQUE WITH MORE THAN ONE SOURCE CONTRIBUTING TO BRANCH MEASURE 00000990 
0034 L5 CONTINUE 000010CO 
cO35 00 40 ICC = 1»IC 00001010 
0036 DO 41 IN = 1,UN 00001020 
0087 IF (ECONS(1CC).EQ.UNIQCIN)) GO TO 40 00001030 
C638 41 CONTINUE 00001040 
0089 GO TO 46 3 00001050 
0c90 40 CONTINUE 00001060 
0091 46 UNDET = ICONS(ICC) 00001070 
6072 UN = UN # 1 000010390 
0093 UNIQ(UN) = UNDET 00001090 S075 
C094 MESURE T)=2 00001100 
0095 IBPLST = BPLIST(Tel) c0001110 
6096 DO 50 IP = 1lyIBPLST 00001120 
0097 IFC IP.NE.1L) GO TO SL 00001130 
0098 FM = YMUIe1) 00C0114¢0 
0099 00 52 ICC = 1,1¢ 00001150 
! 0190 IF(UNDET«EQeICONSCICC)) GO TO 52 00001160 


OLol FM = FM — FLOWM(TCONS(ICC)) 00001170 
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3192 52 CONTINUE C0001180 
0193 FLOWM(UNDET) = FM 00001190 
0194 WRITE(3¢318) UNDET » I» BPLIST( Tel) 00001250 
0195 318 FORMAT(////*  SUURCE NUMBER *yf4,* [5S UNIQUELY DETERMINED ON 00001210 

$ BRANCH ',14,* WHERE "yl4,* PARAMETERS WERE MEASURED. "y/y 00001220 

ce OTHER SOURCE(S) ALSO CONTRIBUTE TO THIS BRANCH? ‘ 6000123¢ 

$ © AS INDICATED. "%,/) 00001240 
0196 Oo 53 Ice = 14,56 00001250 
0197 IF(UNDETSEQeICONS(ICC)) GO TO 53 00001260 
0108 PER = FLOWM(ICONS(ICC)) 7 YM( Tol) * 100.0 000U1276 
9109 WRITE( 3,331) TCONS(ICC) » FLOWM(ICONS(ICC)) » PER 60001240 
OLLO 331 FORMAT(* SOURCE NUMBER *',14,¢ FLOW RATE ",F2006y 00001290 

$ * PERCENT CONTRIBUTION *'yF10.3) 0000136 
Olll 53 CONTINUE 00001310 
OLL2 PER = FM / YM(Iy1) * 100.9 00091320 
0113 WRITE(3,332) UNDET » FM » PER €0001330 
0114 332 FORMAT(////* FLOW RATE OF SOURCE 'yI4," IS MODIFIED TO *yF20.6y" A00001 340 

$ PERCENT CONTRIBUTION OF 'yFL10.39//y"OTHER PARAMETERS FOLLOW.*) 00001350 
O1LS GO TO 50 00001360 
0116 51 DO 54 KK=lyNP 00001370 
0117 54 IF(BPLIST(IT,IP)sEQeNPLIST(KK)) K = KK 00001380 
6118 XE = 0.0 00001390 
0119 DO S55 ICC = 14IC 00C01400 
0120 IF (UNDETSEQeICONS(ICC)) GO TO 55 00001416 
0121 PP = CMC(ICONSCICC)»K) * FLOWM(ICONS(ICC)) 60901420 
0122 XE = XE + PP C€0001430 
0123 55 CONTINUE 00001440 
0124 PMCS = YM(IyIP) * YM(Iy1) — XE 00001459 

01725 CCS=PMCS/FLOWM(UNOET) 00001450 
0125 CM(UNDET,K) = CCS 00001470 
6127 WITTE (3, 307) (POLN( Ke IIT) pL IT =L 95) pYMUL 9 IP) yVOT 9K) 9CCS 00001480 
C128 50 CONTINUE 00001494 
0129 100 CONTINUE C00015.0 
0130 IF(UNZEQ.NSIGO TO 1400 00001510 
0131 DO 700 J=1yNS 00001520 
0132 DO 719 IN=1,UN 00001536 
6133 IF (J.EQ.UNIQCIN))GO TO 700 00001540 
0134 W10 CONTINUE 00001550 
0135 IFLAG=0 00001555 
0136 DO 715 I=1,NB 00001560 
0137 IF(A(Je1)e£Q.0)G0 TO 715 00001570 
0138 GO TO 720 00601586 
0139 715 CONTINUE 00001590 
0140 720 IF(MESUR(I).NE21)GO TO 700 00001610 
0141 IF(A( S91) eGTe lL) IFLAG=10 00001610 
0142 IC 1=0 00001620 
0143 1C=0 60001630 
0144 00 725 JJ=1eNS 00001640 
0145 IF(CA(JJ91)2E0.09G0 TO 725 09001650 3 
9146 IC=1C+l 00001660 G3L76 
0147 ICONS (IC) =JJ C0601670 
0148 725 CONTINUE 00001680 
0149 It=!-1 00001690 
156 IF (MESUR(II)-E0.9)GO TO 700 00691760 
0151 DO 730 JJ=1eNS 00001716 
0152 IF(ACJSe TL) e£Q20)GO TO 730 00001720 
6153 ICL=ICL#l 00001730 


0154 ICONSL(IC1LI #545 00C01740 


re 
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9155 730 CONTINUE 00091750 
0156 MOIF=IC-IC1 COC01769 
C157 IDLF=1ARS(MDIF) } 00001765 
0158 IF(LDIF.NE.1LIGO TO 700 o0cO0lTTU 
0159 UNK=0 CCCO17#80 
0160 DO 735 ICC=1,IC c0CG1790 
0161 DO 740 ICCl=1leICl ( 00091800 
0142 IF (ICONS( ICC) EQ. ICONSL(ICCL)IGO TO 735 €0001810 
0163 740 CONTINUE j 0000182C 
0164 UNK=UNK #1 00001830 
0165 NUNK (UNK )=ICONSC ICC) 00001849 
0166 735 CONTINUE 00U01850 
0167 IF (UNK.GT.1)GO TO 700 00001860 
0158 IF (NUNK(UNK).NE.JIGO TO 700 00vu01870 
0169 MESURIT)=2 00001880 
0170 UN=UN¢] 00001890 
O17L UNIQCUN)=J 00001900 
0172 IF(BPLIST(1,1).NE.BPLIST(II,1)9GO TO 700 00001910 
0173 IBPLST=BPLIST(I,1) 00001920 
0174 DO 745 IP=1,IBPLST 00001930 
0175 IFC IP.NE.1)GO TO 750 00001949 
0176 FM=YM(T,L)-YM(II,1) 00601950 
OL77 WRITE(3, 760) SeIoII 00001960 
0178 T60 FORMAT(///* SOURCE NUMBER*,I4,* IS UNIQUELY DETERMINED GN BRANCHESO0001970 
1%, 14." AND',14,/) 00001980 
0179 WRITE(3, 765) 3 eFLOW( JD, FM 00001999 
0180 765 FORMAT(///* SOURCE NUMBER* yI4,* FLOW MOOIFIED FROM*,F20.6,* TO*, 00002000 
1F2C.6) 000092010 
o18l GO TO 745 00002015 
0182 750 CONTINUE 00002020 
0183 DO 770 KK=1,NP 00002030 
0184 T7O IF(BPLIST(I,1P).EQ.NPLIST(KK) DK=KK 00002049 
0185 IF (FLAG.EQ.10)9GO TO 790 00002050 
0186 PP=YM( Te IPI*YM(L,LI-YM(IIT IP) *®YM( IT el) 00002060 
O187 CCS=PP/FM - 00002070 
0188 WRITE(3, T8OV(POLN(K SLIT)» TL L=1,5) eC JS eK) CCS 000020980 
0139 TBO FORMAT( LOX »5A4e2Ke"MODEL* »F2006e" CORRECTED TO*,F20.6e/) 00002090 
6199 GO TO 745 00002100 
oO191 790 SCON=X(1eKI-XCTI,K) 00002110 
0192 PER=C(JeK) *FLOW(JSI/SCON 00002120 
0193 PMCS=( YMC IT, IPY*¥YM(TSLI-YM(IT, IP) *YMCIT,1))*PER 00002130 
0194 CCS=PMCS/(YM( IT, LI-YM(IT,1)) 00002140 
0195 WRITE(3, 7BOVCPOLN(K sg TIT Ds TL L=1 95) eC ld eK) eCCS 00002160 
0196 74S CONTINUE 00cG2175 
0197 TOO CONTINUE 0000218u 
0198 IF (UN.EQ.NSIGO TO 1400 . 00062190 
C THIS PART FOLLOWS AFTER ALL UNIQUELY DETERMINED SOURCES HAVE BEEN 00062250 
C DETERMINED. 00002210 

0199 NUN=0 00002220 np ar ar 
020 CO 50D I=1,NB 00002230 
0201 IF (MESUR(I).NE*1LIGO TO 500 00002240 
0292 ME SURI T)=0 00002250 
0203 Ic=0 00002260 
0204 00 510 J=1,.NS 00062270 
0255 IF (AC Je1).EQ.0)G9 TO 510 00002280 
0206 1G=I1C+1 00002290 
0297 ICONSCIC)=J 00002390 


0208 510 CONTINUE 00002310 
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0299 NUNPR=O C0002 320 
0210 DO 520 ICC#1-IC 009023390 
C211 IFIUNSEQ.OIGO TO 505 000023460 
0212 CO 539 IN=1.UN 00002350 
6213 TF (ICONS(TCC).EQUNIQUINIIGO TO 520 00002340 
0214 530 CONTINUE 00002370 
0215 505 IFINUN.EQ.0C)GO TO 540 00002340 
6216 00 540 NN=1,NUN 00002390 
0217 IF (ICONS(ICC).EQ.NUNIQ(NN)DIGO TO 520 00002400 
0218 540 CONTINUE 00092410 
U2L9 NUNPR=NUNPREL 00002420 
0220 NUN=NUN¢#1 00002430 
0221 NUNIQ(NUN)=ICONS( ICC) 00002440 
0222 NSORSCCNUNPRI=ICONSC(ICC) 00002459 
0223 520 CONTINUE 00002460 
0224 IF (NUNPR.ZEQ.09GO TO 500 00002470 
0225 IRPLST=BPLIST(L el) 00002480 
0226 00 560 IP=1,IBPLST : 00002490 
0227 IFC IP.NE.LIGO TO 561 4 000025°0 
0228 00 5590 JJ=1LyNUNPR 00002510 
0229 PER=FLOW(NSORSC(JJD)/EFF(I) 00062520 
6230 FLOWMINSORSC( JJ) D=PER*YM(T, IP) 00002530 
0231 WRITE (3s 580INSORSC( JSS) eT eo FLOWMINSORSC( SID? 00002540 
0232 580 FORMAT(////* FLOW OF SOURCE’, 14," IS ESTIMATED FROM BRANCH» I4-* A00002550 
$5 yF20.60/) 00002569 
0233 550 CONTINUE 00002570 
0234 GO TO 569 00002589 
9235 561 DO 570 KK=14sNP 00902590 
0236 IF(BPLIST(L,TPPSEQ.NPLIST(KK) DK=KK 00002690 
0237 570 CONTINUE €00G261C 
0238 00 565 JJ=1yNUNPR 00002620 
0239 PER=C(NSORSC(JJI,K) *FLOWINSORSC(JSJDI/XET,K) 00002630 
€240 PMCS=YM(LT +I PP®YM(T,LI*PER 00062640 
C241 CC S=PMCS/FLOWM(NSORSC(JJ)) 00022650 
0242 CM{NSORSCIIDD ¢KP=CCS 00002660 
0243 WRITE(C3¢585)0POLN(Ke IIL) oT LE L=1e5) eNSORSC( SIS) 91eCCS 0c0°2670 
0244 585 FORMAT(LOXs5A4—2Xe" OF SOURCE* »I4,* IS ESTIMATED FROM BRANCH* ¢ [4s *00002680 
$ AS*sF20.65/) 00002690 
0245 565 CONTINUE 00002700 
0246 560 CONTINUE 00062710 
0247 LL=UN#NUN 00002720 
0248 IF(LL.EQ.NS)IGO TO 1400 00002730 
0249 500 CONTINUE C0002740 
0250 1406 wRITE(3+595)UN 00002750 
0251 595 FORMAT(////,14—* SOURCES HAVE BEEN DETERMINED FROM MEASUREMENTS» 00002760 
$THEY ARES") 00062770 
0252 IF(UNSEQ.09GD TO 610 ©0002780 
0253 WRITE(3,5°5) (UNIQCIN) p IN=1 ¥UN) 00022790 C3078 
0254 605 FORMAT(29%e110) 60002829 Neen 
0235 610 WRITE(3,615)NUN 00c02810 
0256 615 FORMATI////91Xel4e" SOURCES HAVE BEEN ESTIMATED FROM MEASUREMENTS,©0002820 
STHEY ARES") 00602830 
0257 IF(NUN2EQ.CIGO TO 620 00002840 
0258 WRITE (39630) (NUNIQC IN) » IN@=LyNUND 00002850 
6259 63C FORMAT(20X,110) 00002860 
0260 620 CONTINUE 00002870 
0261 RETURN 00002880 


C262 END 00002890 
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0003 
0004 
0035 
0026 
0007 
0008 
c0509 
oolo 
ooll 
0012 
9013 
0014 


001s 
0016 
0017 
0018 
6019 
9020 
0021 
0022 
F 0023 
0624 
0025 
0026 
on27 
C028 
0029 
0030 
0031 
0032 
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0034 
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0037 
0038 
0039 
0040 
0041 
6042 
0043 
0044 
0045 
0046 
0047 
0048 
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35 


44% 


12 


250 
270 
271 
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SUBROUTINE LEVEL 1, Y¥,A,PsSOL,MSORS,SUMsSUMA»MPARM,MBRNC pMBRPILyNPLA 
1) 

OTMENSTON YCMBRNC »MPARM) sACMSORS,MBRNC) oP (MPARM 25 pMBRNC PySOL ESI gM 
LBRPL I, SUM(MSORS)»s SUMACMSORS) sNPLA(25) 
COMMON/ TOPLEV/NBB »NPP 
COMMON/STOPL/NS 9B aNTOP 

COMMON /RMATCH/NPOL »NLEVeNPMAX 
INTEGER*2 NPLA,SOL 

INTEGER AySUMsSUMA,SOLA(100),TOP(100) »SUMRR 
NP=NPP 

OO Ll J=l,NS 

TFCACIONB)SNESL) GO TO 2 

CONTINUE 

GO TO 35 

WRITE(3,4) 

FORMAT(*1*,*CIRCUIT MATRIX NOT ENTERED CORRECTLY FOR LEVEL SUBROUTI 
@INE*,//,5X,*OUTFALL SHOULD BE DENOTED WITH HIGHEST NUMBER*) 
RETURNIL 

O00 8 K=1.NS 

SUMA(K)=0 

SUM(K )=0 

43=0 

t=. 

M=NB-1 

TOP(L)=s 

K=0 

DO 44 J=1,-NS 

SUM(JSD=SUM( IDFA IS 2M) 

IF(SUM(J).GT.1)3 GO TO S 
TECSUM(SILEQLO) K=1 

CONTINUE 

IF(K.EQ.0) GO TO 7 

OO 9 J=LeNS 

SUMAUJ)=SUMEJ) 

I=1+] 

M=M-1 

TF (M.CT.L) GO TO 47 

co TO 6 

OO 1G J$=1.NS 

SUM(J}=SUMA(J} 

M=M-1 

IF(M.LT.1) GO TO 47 

GO TO 6 

JJ=Jse1 

SOL(ISe1L)=F 

OO 12 K=1l,! 

SOL(JS,K*t#LI=TOP(K) 

IF(JI2E0224)G0 TO 20 

IF (SOL(JJeI#+1¥.NE.1L) GO TO 5 

TF (JJ2EQ.1) GO TO 55 

KK=0 

LIMTL=341 

O00 250 J=2eLIMTL 
TF(SOL(JIJ—-L»JDCEQSSOL(SJe JI) KK=KKEL 
TF (SOL CJI—1 JP eNESSOL( IIe 5)) GO TO 270 
CONTINUE 

IF(KK.EQ.0)GO TO 55 

IR=SOL( JJ eKK#+25-1 


PAGE 0001 


a eee Te 


FORTRAN IV G LEVEL 21 LEVEL DATE = 76020 13/28/17 PAGE 0002 


0056 IF (1R.LE.1) GO TO 351 } 
0057 M=IR FFF 
0058 1=KK+1 
0059 OU 251 J=291 
0060 251 TOP(J-1L)=SOL(JSJed) 

OCé61 70 LIMT2=KK 

0062 69 DO 252 K=1eNS 
00453 SUMAIK)=0 | 
0064 252 SUM(K)=0 " 
0065 DO 253 J=LyLIMT2 

0065 NSUB=TOP(J) 

0047 DO 254 K=1.NS 

0068 SUMA(K)=SUMA(KD+A(KNSUB) 

0069 254 SUM(K I=SUM(KICA(K oN SUB) 

6070 253 CONTINUE 

oor. GO TO 6 

ocT2 362 IF(KK.EQ.0! GO TO 300 ’ 

0073 GD To 271 

0074 351 9 - KK=KK-1 

0075 GO TO 362 

0076 3OL = KK=1 

cor? cO TO 271 

0078 55 BG 255 J=lel 

0079 KK=Tel-J 

0080 IF (SOL(S5,KK+1).GT.J) GO TO 970 

0031 255 CONTINUE 

0082 GO TO 300 

0083 970 «TF (KK.EQ.1) GO TO 300 

0084 IR=SOL (JS eKKELI~L 

oc8s TF (IRLE.L) GO TO 651 

0086 M=IR 

CORT 1=%K 

0088 O00 6TL J=2,KK 

0089 6TL «= TOP ( S-L=SOL( 55,5) 

6095 LIMT2=KK-L : 
oo?1 GO TO 69 

C092 651 KK=KK-1 

0093 GO TO 970 

0094 47 IF (JJ.GT.O GO TO 360 

6095 WRITEL3, 1000) 

0096 19000 FORMAT(* *,5X,*TOPOLOGICAL DATA ENTERED INCORRECTLY®) 
0C9T RETURNI 

0098 360 LIMB=SOL( JJ, 11 

oc939 KK=0 

6100 DO 361 J=2,LIMB ‘ 

0191 TF(SOL(J5,5).EQ.TOP( I-10) KK=KKEL 

0192 {F (SOL (55, SI.NE.TOP(J-1)) GO TO 862 

0193 361 CONTINUE 

0194 IF(KKsEQ.0) GO TO 855 

0195 B71  IR=TOP(KK+LI-L 66239 

| 0126 IFCIR,LES1L) GO TO 851 a 

0197 M=IR 
0198 I=KK+1 
0199 GO TO 70 
0110 651 KK=KK-1 
Ol1l GO TO 862 
0112 862 IF(KK.EQ.0) GO TO 300 


0113 GO TO 871 
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O1ls 
ULLS 
O116 
oll? 
O118 
0119 
0120 
0121 
0122 
0123 
0124 
0125 
0126 
0127 
0128 
0129 
0130 
O13 
0132 
0133 
0134 
0135 
0136 
0137 
0138 
0139 
0140 
0141 
0142 
0142 
O1+4 
0145 
0146 
OL4T 
0148 
0149 
o159 
CL5L 
0152 
0153 
0154 
6155 
0156 
0157 
0158 
0159 
0140 
0161 
0162 
01453 
0164 
0165 
0166 
0167 
0168 
0159 
O1790 
O171 


LEVEL 


951 


300 


115 
114 


166 


20 


25 


27 
28 


29 


30 
26 


1500 


33 
52 


21 LEVEL 
OO 655 J=lel 
KK=I¢t#l~-J 

IF (TOP(KK).GTeJIGO TO 670 
CONTINUE 
Go TO 300 


IF (KK.EQ.1IGO TO 300 
IR=TOP(KKI~1 
IFCIR.LE.LIGO TO 951 
M=IR 

1=KK 

LIMT2=KK-1 

GO TO 69 

KK=KK=1 

GO TO 679 
LIMA=TOP(1)-1 

OO 114 J=1,NS 
SUMRR =O 

DOO 115 K=1L,LIMA 
SUMRR=SUMRREAL SK) 
IF (SUMRR.EQ20O) GO TO 20 
CONTINUE 

M=TOP(1LI-1 

f=1 

OO 166 K=1,NS 
SUMA(K)=0 

SUM (K )=0 

GO TO 6 
NMAK=SOL(1,1) 

DO 25 J=2sJ5J 
TF(SOL (Je 1).GTeNMAX) NMAX=SOL( Jel) 
CONTINUE 

NEMAX=NMAX 

LIM2=JJ-1 
LIM3=NMAXK4] 

00 26 K=1-LIM2 
LEM4=Ke) 

CO 26 L=LIM4, 5/5 

TF CSOLC Ls LPeLTeSOL(K,1)) GO TO 27 
GO TO 26 

CO 28 LL=1,LIM3 
SOLA(LLI=SOL(KeLL)D 
OO 29 LL=1,LIN3 

SOL (KeLLI=SOL(LsLL)D 
OO 30 LL=1,LIM3 
SOL(L»tL)=SOLA(LL) 
CONTINUE 
IF(INTOP.NE.L) GO TO 33 
LIM6=JJ+1 

DOO 1500 [=1l,JJ 
LIMT=SOL(JJ+1-I,1)¢1 
DO 1500 K=1lsLIM7 
SOL(JJ+2-1 .K)=SOL(JSJ+1—-1 9K) 
SOL(1y))=1 
SOL(1,2)=NB8 

GO TO $2 

LIM6=JJ 

OO 32 K=1,5LIM6 

OO 32 KL=1,NP 
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0172 
0173 
O1lTS 
o175 
O1lT6 
Ol77 
vl7B 
0179 
01890 
O18. 
O182 
0183 
0184 
0185 
0186 
O187 


32 


1001 


100 


21 LEVEL 


LIM5S=SOL(K,1) 

OO 32 KJ=1,LIM5 
NSUSB=SOLCK sKJ1) 
PUKL »KyKJ)=YONSUBSKL) 
CONTINUE 

DO LOOL K=1L,LIM6 
LIMS=SOL(K,1L) 

DO 1001 J=1LyLIM5 
CONTINUE 
NLEV=LIM6 
NPMAXK=NEMAX 
NPOL=NP 

09 100 I=l»NLEV 
NPLA(I)=SOL(I,1) 
RETURN 

END 


DATE = 76020 


13/28/17 


VAGE 0004 


oo 
xe 


> 
as 


ee 
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ooo1 


0002 


0033 
0004 
0005 
0006 
0097 
0008 
0099 
0010 
ooll 
0012 


Oo13 
0014 


001s 
0016 
0017 


0018 
oc19 
00290 
coal 
0022 
0023 
0024 
0025 


0026 
0027 


0028 
0029 
G0O30 
cO31 
0032 
C033 
0034 
0035 


aan 


aAanan 


aaAAN 


SUPROUTINE RM(POLN,MENAME, IDO ,NMA,NPLA,PCyPCRMyPM,IBN,NALOW, PMO 
LATASNTEMP.NROUT eNFLOWe SMEQTI eSAMFRESEQUSEDSEU,SUMM,NSET, AMAR, TEMP, 
ZEQTIME sNPLIST»US=NOsCNSTAR gNBRNCH y BRANCH» BRNyLCONAME »MPARM,MBRNC,MB 
GRP1eMEQeMP2,VNSP) 

DIMENSTON POLN(M°ARM,5) 4 MENAME (MPARM, 3,5) 9F P1400 94) 5 1L00(MPARM,25),y 
INMA(MPARM) gNPLA(25) PCI MPARM,25—MBRAC) »PCRMIMPARM, 3) 5 PM(MPARM,25,y 3 
Z2),TBNC5SLe“MBRPLD, JALOW(MPARM,MBRNC ) pPMDATAIMPARM, 354,55) »SMEQTIIMEQ) 
4 eSAMFRE(MPARM) ,EQUSEDIMPARM,MEQ) ,EUIMEC) »SUMM(6) »NSET (MPARM,3) AMA 
SRIMPAQM MP2), TEMP (452) pEQTIME (MEQ) ,CNSTAR(6) »NBRNCY4(MBRNC,y 2 dy BRANC 
6H(MBRNC e4P ARM) p B2IN(MBRNC ) gE QNAME(MEQs5) »NTEMP(MPARM) »NPLIST(MPARM) 
TeUSENO( MEO) »VNSP( MEQ) »NROUT (MBRNC) »NFLOW(MBRNC) 
COMMON/R*MATCH/NPOL «NL» IDUMMY 
COMMON/MAST/MASTER 
COMMON/PASS/NP ANB 
COMMON/NAMEC/ISTOP 
COMMON/NAMED/LENGTH 

INTEGER EQUSEDsEUs,POLNyEQNAME »AMARL »AMARJ,USENO 

INTEGER*#2 IBNyNTEMPyNPLIST,IOOs,NPLAeNALOW, NMA, AMAR» PMY FP 
DATA ITYES/*YES */,NO/*NO 1 °/,1BSP/* 7 
@MaTA FP/1600*0/ 

Iiv1lotl=0 


READ THE TOPOLOGY OF THE SITE AND PRINT IT 


PRINTL25 

125 FORMAT(/*-THE TOPOLOGY OF THE SITE*/6X,*LEVEL*,10X,°@# OF TEST POIN 
its*') 

€0Ol FORMAT(N1S) 
PRINTL30e( 1 eNPLACI) + L=LeNL) 

430 FORMAT(7X,12,19%,12) 


READ AND PRINT THE NAMES OF ALL ITEMS OF EQUIPMENT AND THE 
EQUIPMENT CONSTRAINTS. THE EQ. IS CODED AS IT IS READ IN, THE 
1ST EQ. NAME IS CODED ly 2ND-2,ETC. 


MEAOLI5¢NPOFEQ 
1385 €ORMAT(I3) 
PRINT140,NPOFEQ 
140 FORMAT(/*-TOTAL # OF ITEMS OF EQUIPMENT = *,13) 
READL45,( (EQNAME(T oJ) J=1 55) -EQTIMECI) »1=1,NPOFEQ) 
145 FORMAT(2(5A4,FLO.1,10X)) 
PRINTL5SO 
150 FORMAT(6X%,"EQ. CODE #"¢5X,"EQ. NAME*,1L7X,*TOTAL TIME AVAIL./TIME P 
1er ion’) 
PRINTLS5y C1 e (EQNAME( I,J), J=1y5) 29EQTIME(T) »L=1 »NPOFEQ) 
USS FORMAT(9X,13_ 9X ,5A4y,1IXFTOL) 


READ & PRINT METHODS & DATA ASSOCIATED WITH EACH METHOD FOR 
EACH PARAMETER 


N=1 
DO 10 I=1,MASTER 
TF (NPLISTINISEQe IT INMAT=NMAC(N)D 
IF OUNPLIST(N) NEST) NMAT=NTEMP(T) 
DO 20 J=1,NMAI 
READGLO, (MENAME (Ne Jo TID, TL=155)sPCRMINZJ) 
DO 30 L=1+4 
30 READS30,(PMDATA(Ne Joloil) eLI=l,53 


{ 


RM 


RM 
RM 
RM 
RM 
RM 
RM 


RA 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 


430 


1450 
1500 
1559 
17900 
175u 
18CG 


1856 
1300 
19590 
20.0 
2056 
2190 
2150 
2200 
2250 
2300 
2359 
2400 
2459 
2500 
2550 
2600 
2650 
2790 
4000 
4056 
4100 
4150 
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6036 20 CONTINUE 
C037 LF (NPLISTINISEQe LT IN=NEL 
0038 10 CONTINUE 
5039 G10 FORMAT(5X,5A4,F1005) RM 4600 
0040 430 FORMAT(F5.0sF 1002 eF 1003 9F L002 oF 1003) RM 5150 
cosél OO 500 [=l_NP RM 4200 
0042 PRINTLOL RM 4250 
0043 PRINT4C5y(POLN( Led) ¢JS=195) gNMACT) RM 4390 
0044 405 FORMAT(*-PARAKETER NAME °,544,8K,*NUMBER OF METHODS AVAILABLE FORRM 4350 
1 ANALYSIS *,11) RM 4400 
0045 NMAT=NMACT) RM 4450 
0046 DO 550 L=1,NMAI RM 4500 
0047 PRINT415 ely (MENAMEL Toh lI) g 11 =1 95) pPCRMII oL) RM 4650 
6048 415 FORMAT(/* METHOD *yTLy* NAME", 3X,5A6,12X, "MINIMUM ACCEPTABLE CONCERM 4700 
INTRATION "F1004) RK 4750 
0049 PRINT420 RM 4809 
0050 420 FORMAT 40%, 29K, *CODE',6X,"EQ. TIME',23Xy"AVG. ANALYSTS*) RM 4850 
0051 PRINT425 RM 4900 
0052 425 FOUMAT(9X, "EQUIPMENT NAME’, 9X," ",6Xy*PER SAMPLE® ,6Xy°VAN SPACE*, RM 4950 
18X, *TIME/SAMPLE*,13X, "MI SCELLANEOUS®) RM 5000 
0053 DO 600 LL=14 RM 5050 
0054 TEQN=PMDATACT loll ol) RM 5200 
0055 IF(IEQN.EQ.0? GOTO 575 RM 5250 
0056 VNSPULTEQN)=PMDATA(T ty Ll, 3? RM 5275 
0057 PRINT435y ( EQNAME ( TEQNy JJ) yp JJ=1 95) gp LEQNy (PMDATAC ToL ello LK) pL K=295) RM 5300 
0058 435 FORMAT (=, 5K y 58S 5 SKe13y TK oF eZ el OK oF 602 LOX F602 91 9X yFbe2) RM 5350 
0059 GOTO 590 RM 5400 
0060 575 PRINT435 + 1BSPeIBSPy1BSPyI BSP, 1 BSP, IEQNy (PMDATAC Tel olLLy LK) gL K=295) RM 5500 
0061 $90 IF(LL.EQ.1) PRINT5S92 RM £550 
0052 592 FORMATO *+*, 80K, "CLASS 1%,18X,*COST SAMPLE*) RM 5690 
0063 IF(LLLEQ.2) PRINTS94 RM 5650 
0054 594 FORMAT("#",80X, "CLASS 2"%,18X,"SET UP TIME") 
0065 IF (LL eEQ.33 PRINT596 RM 5750 
2066 596 FORMAT("+#",80X,"CLASS 3%918X,"WHERE ANALYSIS DONE®) RM 5890 
C047 TF(LLLEQ.4) PRINTS9B RM 5850 
C068 598 FORMAT(*#*,B0Xe "CLASS 4% e918," TIME CONSTRAINT?) RM 5990 
0049 600 CONTINUE RM 5950 
0070 PRINTSO1O RM 5975 
oo7l 605 FORMAT(* *) RM 6050 
6072 PRINT605 RM 6000 
0073 550 CONTINUE RM 6100 
0074 500 CONTINUE RM 6150 
c RM 6200 
c COMPARE POINT EXPECTED VALUES WITH MINIMUM FOR EACH METHOD TO RM 6250 
C DETERMINE WHICH METHODS ARE POSSIBLE FOR ANALYSIS AT EACH RM 6300 
C POINT. ALLOCATE RESOURCES TO POINTS WITH "NEG." CONCENTRATIONSRM 6350 
C RM 6400 
0075 CALL CONCK (NP, POLN» MENAME ¢ FPy IFPT, [D0 »NMAyNFLAy PC» PCRMyPMy IB 
IN, NALOWsPMOATA, SMEQTI , SAMFRE y EQUSED y EUs SUMMy NSET » MPARM, MBRNCy MBRPL 
29MEQ) 
c RM 65u0 na 
C READ AND PRINT THE CONSTRAINTS ON AVAILABLE RESOURCES RM 6559 C8031 
C RM 6600 
0076 READ650> (CNSTAR(M) »M=1,y 6) RM 6650 
0077 650 FORMATIGF2063) RM 6700 
0078 PRINTTOO RM 6750 
0079 700 FORMATL*1*/*OCONSTRAINTS ON AVAILABLE RESOURCES (EXCLUDING EQUIPMERM 6830 
LNT TIME CONSTRAINTS)*) RM 6850 
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CORD PRINT TLOsCNSTARIL) RM 


69L0 
u081 T10 FORMAT ('9*,46X_*CONSTRAINT* 6X," TOTAL VAN SPACE*®,25X,F 11.3) QM 6950 
0032 OO 759 N=1le4% RM T7000 
0033 PRINT 7T2C,N,CNSTAR(N#L) RM 7050 
0034 720 FORMAT("C*,5X,*TOTAL ANALYSTS TIME (CLASS %ofle!)* LOX »FLL.3) RK TLD 
0085 750 CONTINUE RM 71506 
0086 PRINTTE0,CNSTAR(6} RM 7260 
0087 760 FORMATE O's SXe*TOTAL COST» 28X5"S "yF10.2) RM 7250 
0088 LVIOL=0 RM 7260 
0039 PRINTBCO RM 7275 
; 0090 800 FORMAT(*1") * 7278 
| Cc RM 7390 
‘ Cc DO RESOURCE ALLOCATION AND CONSTRAINT CHECKS RM 7350 
i c RM 7400 
; oo9l 00 1000 I=1,NP RM 7450 
j 0092 LREM=0 RM 7550 
0093 tT=0 : RM 7600 
€ RM 7650 
c BEGIN HERE FOR DIFFERENT LEVELS RM 7700 
c RM 7750 
0094 O00 2000 J=1,Nt RM 7800 
0095 IF(IDO(1,J).£0.1)GO TO 1000 
0096 NPLAJ=NPLA(J) RM 7850 
c RM 79L0 
c MC CORRESPONDS TO THE OIFFERENT METHODS FOR EACH PARAMETER RM 7950 
c RM 8000 
0097 DO 3009 MC=1,3 RM 8050 
0098 L=PM(LeJyMC) RM 81LCG 
c : RM 8150 
c CHECK TO SEE IF L=O0 CIF TRUE,THERE ARE NO OTHER METHODS RM 820 
c POSSIBLE AY LEVEL J; TRY LEVEL J#l). RM 6250 
G RM 8300 
0099 1F(L.EQ.0) GOTO 2000 RM 8350 
Cc RM 8400 
c LREM & JREM KEEPS RECORD OF THE FIRST POSSIBLE METHOD AND THE RM 8450 
c LEVEL AT WHICH IT OCCURS FOR EACH PARAMETER I RM 8500 
6 RM 8556 
c RM B600 
o1se fF (LREM.ZNE.O? GOTO 2050 RM 6650 
O1d1 LY=2 RM 8720 
0192 LREM=L RM 8750 
0103 JREM=J RM 8800 
0194 2050 AMAR(I,LI=L RM 8850 
0195 LY=LT-1 RM 890 
0126 AMAR(I,2)=J5 RM 8950 
Cc RM 9050 
c CHECK TO SEE IF EQUIPMENT CONSTRAINTS ARE VIOLATED RM 9050 
Cc RM 9190 
0157 CALL TOUTEMP) RM 9156 
0108 CALL EQCHEC(L eJolb eMC eNPLAJ so IVIOL y LEQNyE&2200 » PCy AMAR, PMOATAyTEMP,SA 
IMFRE» SMEQTI sEQTIME »MPARM yMBRNC oMP2_MEQI rive 
Cc RM 9256 GC" RISD 
c EQ. CONSTRAINTS WERE NOT VIOLATED, NOW TRY VAN SPACE CONST. RM 9390 
c RM 9350 
0199 CALL VSCHEC (Isle IVIOL»SUMZ,E2209 »PMDATAyEUs SUMMsCNSTAR,MPARM, MEQ) 
C RM 945C 
Cc VAN SPACE O.Ke, NOW CHECK FOR CONST. VIOLATIONS ON THE 4 RM 9500 
€ DIFFERENT CLASSIFICATIONS OF ANALYSTS RM 9550 


ine 


FORTRAN 
G110 
Olll 


0112 


0113 


0114 


OLLsS 


0116 
O1l7 
O18 
0119 


0120 


0121 


0122 
0123 


Iv 


G 


CEVEL 22 


C 


RM 


DO 2100 FCONNO=144 
CALL CNCHECCICONNOs Te Jelse4eIVINL SAT, E2200 
LAR »SAMFRE » SUMMeCNSTAR »MPARM,yMP? ) 


= 76026 13/28/17 


RM 
QM 
sNPLAsNSETyPYOATA,AM 


PREVIOUS ALLOCATIONS FOR PAST PARAMETERS MUST BE CHECKED, BUT RM 
FIRST WE MUST ALLOCATE RESOURCES FOR THE PRESENT PARAMETER. RM 
WE WILL USE THE FIRST FEASIBLE METHOD THAT WAS FOUND. THIS RM 
METHOD IS IDENTFIED BY LREM AND JREM. 


RM 


2100 CONTINUE RM 
Cc RM 
c NOW CHECK FOR COST VIOLATION RM 
c RM 
Cc RM 

CALL CNCHEC( Le leJobl eS, IVIOLsCOST»E220C, NPLA,NSET,P¥YOATA,AM 
LAR» SAMFRE,SUMMyCNSTAR» MPARM,MP2) 
c NO CONSTRAINTS WERE VICLATED, ALLOCATE THE REQUIRED RESOURCES RM 
c AND PROCEED TO NEXT PARAMETER RM 
Cc RM 
CALL ADDU eJelys NPLA,PC,PMDATA,SMEQTI »SAMFREs EQUSEDsEUSNSET,y 
IMPARM,MBRNC »MEQy SUMM) 
GOTO 10C90 RM 
Cc RM 
C **ee% A VIOLATION OF A CONSTRAINT HAS OCCURRED, CONTROL HAS BEEN RM 
C ##ee8 TRANSFERRED HERE TO RELIEVE THAT VIOLATION RM 
C RM 
2200 IF(LT.NE.1) GOTO 3000 RM 
IVIOLR=IVIOL RM 
IFCIVIOLLEQ.1LPTEQNR=IEQN RM 
IF(IVIOL.NE.1) TEQNR=0 
Cc RM 
Cc CHECK TO SEE IF THE NEXT AVAILABLE METHOD AT THIS LEVEL RM 
Cc VIOLATES A CONSTRAINT ALSO RM 
G RM 

3000 CONTINUE RM 
¢ RM 
G NO NEW METHOD WAS FOUND AT THE PRESENT LEVEL, NEXT TRY A RM 
c HIGHER LEVEL RM 
Cc RM 

2000 CONTINUE RM 
€ RM 
Cc A VIOLATION OF A CONSTRAINT HAS OCCURRED FOR THE PRESENT RM 
G PARAMETER ANDO THERE IS NO METHOD AT ANY LEVEL WHICH WILL RM 
€ RELIEVE THE VIOLATION, THE TYPE OF VIOLATION IS IVIOLR WHICH RM 
Cc ARE COOED AS FOLLOWS: RM 
G IVIOLR RM 
G 1 - EQUIPMENT VIOLATION (IEQNR IS THE CODE # FOR THE RM 
G VIOLATED ITEM). RM 
c 2 - VAN SPACE VIOLATION RM 
C 3 - TOTAL TIME VIOLATION FOR ANALYST 1 RM 
G 4 - TOTAL TIME VIOLATION FOR ANALYST 2 RM 
c 5 - TOTAL TIME VIOLATION FOR ANALYST 3 RM 
¢ 6 - TOTAL TIME VIOLATION FOR ANALYST 4 RM 
C 7 - TOTAL COST VIOLATION RM 
G RM 
(= 
Cc 
c 
Gc 
c 


RM 


CALL SET(I +JREM,LREM»PC ys AMAR» NPLAyMPARM,MP2yMBRNC) 
CALL ADD(1,JREM»LREMeNPLAy PCy PMDATA, SMEQTI » SAMFRE »EQUSED pEUsNSETye 
1MPARM,MBRNCyMEQ, SUMM) 


97506 
9830 
9850 
99090 
1009 


10050 
10106 
10150 


16250 
10306 
10350 
10400 
10450 
1060 
10650 
10700 


10750 
108c0 
10850 
10900 
19950 
11000 
11050 
11190 
11150 
11209 
11250 
11309 
11350 
11400 
11459 
11590 
1155C 
11690 
11650 
11790 
11750 
118790 
11650 
119¢0 
11950 
12000 
1205u 
12106 
12150 
1220C 
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CG 


naar 
2 
ARID 
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0126 
0127 


O128 
0129 


0130 
O131 


0132 


0133 
0134 


0135 
0134 
0137 
0138 
0139 


0140 
0141 
0142 
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IFILVIOL -EQ-LeAND.LEQNLEQG.ITEQNRI GO TO 4000 
TFCLVINLCECeIVIOLRY GO TO (3209054100 542005425054200,420014300),4 


1IVIOLR 

c RM 
Cc [F AN EQUIPMENT VIOLATION OCCURRED, THEN WE WILL CALL PIECCHe RM 
c THIS SUBROUTINE WILL CHECK PREVIGQUS PARAMETER ASSIGNMENTS RM 
Cc UNTIL TT FENDS ONE WHICH USED THE VICGLATED EQUIPMENT ITEM, RM 
c THEN THE SUBRUUTINE WILL SEARCH FOR A NEW METHOD THAT OOES RM 
Cc NOT USE,OR AT LEAST USES LESS OF THE VIQLATED ITEM. RM 
c RM 
3200 IFLIVIOLR.NE.L) GOTO 3300 


CALL PLTEQCHIT, ISTOP,IEQNR»E49000,E1C00,1 VIOLR»AMARPMDATA,PM,NPLA, 
LTEMP PCy SMEQTI y SAMFRE »EQUSED, EU yNSET + EQTIME + SUMMoCNSTAR »MPARMyMP2y 
2MEQ,MBRNC) 


G RM 
c IF IVIQLR=2 THEN THE VAN SPACE CONSTRAINT HAS BEEN VIOLATED. RM 
Cc THE SUBROUTINE WILL CHECK PREVIOUS ALLOCATIONS AND CHECK TO RM 
c SEE IF NEW METHODS OR METHODS AT DIFFERENT LEVELS WILL KEEP RM 
c THE TOTAL VAN SPACE WITHIN BOUNDS. THE SUBROUT. PIEQCH CHECKS RM 
Cc METHODS AND HIGHER LEVELS BEGINNING WITH THE METHOO AT THE RM 
é LEVEL THAT WAS ASSIGNED BEFORE PIECCH WAS CALLED. RM 
c RM 
3300 TF(IVIOLR.NE.2) GOTO 3409 RM 
CALL PLEQCHIL se I STOP, ITEQNR E4100 yELO0U,IVIOLRy AMAR, PMDATAsPMyNPLAy 
ITEMP,PC» SMEQTI » SAMFRE pEQUSED sEUsNSET pEQTI ME» SUMMyCNST AR MPARMy MP2, 
2MEQ,MBRNC} 
& IF IVIOLR IS BETWEEN 3 AND 6, INCLUSIVE, THEN THE VIOLATION RM 
Cc 1S ON AN ANALYST*S TIME CONSTRAINT. RM 
G . RM 
3400 IFIITVIOLR.~GT.6) GOTO 3500 RM 
CALL PLEQCH(T eI STOP eT EONR £4200 eLE1L000 eI VIOLRy AMAR, PMDATAyPMyNPL Ay 
LTEMP PC» SMEQTI » SAMFRE pEQUSED sEUeNSE FT pEQTI ME » SUMMyCNSTAR MPARMy MP2, 
2MEQ,MBRNC) 
¢ RM 
G IF [VIOLR EQUALS 7, THEN A COST VIOLATION HAS OCCURRED. RM 
C RM 


3500 CALL PLEQCHIT, ISTOP,TEONRs E4300 ELONOs IVIGLR» AMAR ePMDATA,PMyNPLAy 
LTEMP.PC, SMEOTI » SAMFRE sEQUSEDsEUsNSET sECTIME s SUMM,CNSTAR»MPARM, MP2, 
2MEQ,MBRNC ) 


Cc RM 
c THE FOLLOWING SEGMENT IS REACHED ONLY AFTER AN UNSUCCESSFUL RM 
Cc SEARCH HAS BFEN MADE ON ALL PARAMETER ASSIGNMENTS FOLLOWING RM 
c A CONSTRAINT VIOLATION RM 
€ RM 
40CO PRINT4O19,LEQNAME(TEQNRe IT) pL L=195)e(POLN( TTL), Ul=1,5) RM 
4010 FORMAT(*~AN EQUIPMENT VIOLATION OCCURRED FOR ',5A%,* WHILE METHOD RM 
LAND LEVEL ASSIGNMENTS WERE BEING CONSIDERED'/* FOR PARAMETER *» RM 
25A4_y%~ VIOLATION NOTED» ASSIGNMENTS CONTINUINGs *) RM 
LVIOL=IVIOLR RM 
LEQN=ITECNR RM 

GOTO 1009 RM 

410C PRINTSL1LOs(POLN(T IID ,LTI=1,5) RM 


4110 FORMAT(*-A VAN SPACE VIOLATION OCCURRED WHILE METHOD AND LEVEL ASSRM 


LIGNMENTS WERE BEING CONSIDERED FOR PARAMETER *,5A4/* VIGLATION NORM 
2TED, ASSIGNMENTS CONTINUINGe®) RM 
LVIOL=IVIOLR RM 
GOTG 1000 RM 
4200 IT=IVIOLR-2 RN 


12300 
12359 
12400 
12450 
125u0 
12550 
12630 


12750 
12800 
12856 
12900 
12950 
13000 
13050 
13190 
13150 


13250 
13300 
13359 
13400 


13500 
13550 
136396 


13790 
13750 
13890 
13850 
139°6 
13950 
14930 
14050 
14190 
14110 
14115 
14125 
14150 
14230 
14256 
14396 
14319 
14325 
14350 
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Ee 


0150 


o1Lsl 
0152 


0153 
0154 
0155 
0156 


0157 
0158 


0159 
0160 


0161 


0162 
0163 


0164 
0165 
0166 
0167 
0168 
C169 
0170 
0171 
0172 


[IV G LEVEL 21 2M DATE = 76920 13/28/17 
PRINT4S219,1F, (POLNET, IT), ET=1,5) RM 

4210 FORMAT(*=A VIOLATION ON ANALYSTS TIME CLASSIFICATION *,I1,* OCCURERM 

1D WHILE METHOD AND LEVEL ASSIGNMENTS WERE BEING CONSIDERED'/* FOR RM 
2PARAMETER ",5A4,*. VIOLATION NOTED, ASSIGNMENTS CONTINUING. *) RM 
LVIOL=IVIOLR RM 

GOTO 1¢¢") RM 

4300 PRINTS31LJy(POLN( Te II), L1=1,5) RM 


4310 FORMAT(*-A COST VIOLATION OCCURRED WHILE METHOD ANC LEVEL ASSIGNMERM 
INTS WERE BEING CONSIDERED FOR PARAMETER *,5A4/* VIOLATION NOTED. RM 


2SSTGNMENTS CONTINUING.*) RM 
LVIOL=IVIOLR RM 
c RM 
Le: THE NEXT STATEMENT CLOSES THE PARAMETER ASSIGNMENT LOOP. RM 
Cc RM 

1000 CONTINUE RM 
¢ RM 
C CONTROL REACHES THIS POINT GNLY AFTER ALL ASSIGNMENTS HAVE RM 
[f BEEN MADE. THE NEXT SEGMENTS DEAL WITH THE OUTPUT. IFPP IS A RM 
Cc POINTER FOR THE ARRAY CONTAINING THE FLAGGED POINTS IN THE RM 
Cc SITE. TWO PARAMETERS ARE PRINTED GN EACH PAGE. RM 
Cc RM 

CALL INFORM( AMAR, I BNyNPLAsPOLNeFP,IFPT »NBRNCHs BRANCH, BRN» MBR 
INC »MPARM,MP2,MBRPL) 

CALL SAMPLE (SAMFRE,SUMM,IFPT,FP,IBN,NBRNCH, BRANCH » MPARM,MBRN 
1C+B8RP1L»eNROUT »NFLOW) 

TFPP=1L RM 
O00 5000 I=1yNPy2 RM 
PRINT 101 

CALL PRPAR(IFPT,yIFPP,yFP,PCLN»eMENAME,EQNAME, ly AMARyNPL Ay IBNy 
1PC,SAMFRE »PMDATAs SMEQTI sEQTIME » SUMMeCNSTAR yMPARM,MBRNC pMBRPL ye MP2y 
2MEQ) 

PRINTSOLO RM 

SOO FORMANCE 7 a fe a Vere ba a RM 

[re eae le meee IP SE ee OS ene Oe Ae a Re, | 
| Dee A RM 
IF ((1+#1).GT.NPIGO TO 5009 

CALL PRPARUIFPT,IFPPsFPyPOLN»MENAME gEQNAME oI #1, AMAR eNPLAGZIENG 
1PC,SAMFRE »PMDATA, SMEQTI,EQT IME s SUMMeCNSTAR sMPARM,MBRNC oe MBRP] gp MP2y 
2¢cQ) 

5000 CONTINUE RM 
Cc RM 
c OUTPUT FOR EQUIPMENT TOTALS RM 
G RM 

PRINT5100 RM 

5100 FORMAT(*1"',5xX,*TOTAL ALLOCATIONS FOR THESE ITEMS*/*+*,5X—e*____ RM 

1 */37X_,°# OF PARAMETERS * s11X,*TOTAL*,12X_ RM 


2°*WAS CONSTRAINT,» 6Xs*AMOUNT OF*,1LOXs*VAN SPACE*/1LiXe* ITEM' »22X_ RM 
3*1TEM IS USED FOR", lOXs*TIME* s16X-e *VIOLATED's 9X,*VIOLATION', RM 


411Xs*REQUIRED® ) RM 
CALL USEC T(EQUSED yNP »yNPOFEQ,USENO,MPARM,MEQ) 
OO 5200 [Q=1, 75 RM 
IF( USENO(1TQ).EQ.0) GOTO 5200 RM 
AMV=0. RM 
IND= NO RM 
TIME=SMEQTIC IO) RM 
IF(TIME.LESEQTIME(IQ)) GOTO 5300 RM 
IND=IYES RM 
AMV=SMEQTI(ITQI-EQTIME(IQ) RM 


15350 
15499 


15550 
15600 
15650 
15700 


158u0 
15850 
15990 
15950 
16050 
16050 
16100 
16150 
16200 
16250 


16300 
16350 
16400 
16450 
16500 
16556 
16600 
16650 


C 


PAD 
ad 
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O73 
0174 
0175 


0176 


C177 
0178 
0179 
0480 
0181 
0182 
0183 
0184 


0185 
0186 
O1a7 
0188 


0189 
6190 
O191 
0192 
0193 
0194 
0195 
0196 
0197 
0198 
0199 


C206 
0201 
0202 
0293 
0234 
6295 
0206 
0207 


0298 
0209 


53C0 CALL TICHAN(TIME,ITHRS MIN) 
CALL TICHAN(AMV,ITHRSS»MINN) 


76020 


) 


RM 


ae 


PRINT 5350 ,71Q,(EQNAME(TOQeNN)yNN=195)5 USENO(1Q),THRS»MINy IND, THRSSRM 


LyeMINNe VNSP(IQ) 


RM 


5350 FORMATETX¢ 124 2X¢5AS, 13K eT 2eLIL Kel 3e" HRSe"e2Xyl2y* MINe  ylL2XeASy EXAM 


Lel3e" HRSe'e2Xe 125" MINS oe" s6XyF G02) 
5200 CONTINUE 
IND= NO 
AMVSV=0. 
TF (SUMM(LISLESCNSTAR(1L)) GOTO 5400 
IND=LYES 
AMVSV=SUMM(LI~CNSTAR(L) 
5400 PRINT5S459,SUMM(1)5 IND» AMVSV 
5450 FORMATI/S///6X—* TOTAL VAN SPACE*/*4#+*,5XKy* 


—— 


RM 
RM 
RM 
RM 
RM 
RM 
RM 
RM 
*7*0%,10X»y RM 


1"TOTAL VAN SPACE ALLOCATED = *,F8.3,10Xe"WAS CONSYRAINT VIOLATED? RM 


2 ",A4,5X,* AMOUNT OF VIOLATION =*,F8.3) 
PRINT5451 

5451 FORMAT(S///6Xy*__ 
PRINT5469 


ant 


RM 
RM 
RM 
RM 


5460 FORMAT(*+#*.5Xe"GRAND TOTAL ANALYSTS TiME*/‘'O* pL TX, "ANALYST", 14X_°TRM 
LOTAL TIME*,1LOX,*CONSTRAINT VIOLATED?* ,12X—e* AMOUNT OF VIOLATION) RM 


O00 5475 I7=1s4 
IND=NO 
AMVSV=C. 
TE (SUMMOCTZ¢1LPLESCNSTAR(IZ+1)) GOTO 5485 
IND=IYES 
AP VSV=SUMM(ITZ4¢1LI-CNSTARCIZ¢41L) 
5485 TIM=SUMM(IZ+1) 
CALL TICHAN(TIM,IHRMI) 
CALL TICHANCAMVSV,IHyM) 
PRINTS4S9C eI ZeTHR MI gIND eo IH eM 
5490 FORMAT(14X%, "CLASSIFICATION *%sIle5Xes13_y* HRS. 
12CX,139* HRS. “%,l2e* MIN.) 
5475 CONTINUE 
IND= NO 
AMVSV=C. 
If (SUMM(6).LE.CNSTAR(6)) GOTO 5590 
IND=IVES 
AMVSV=SUMM(6)-CNSTAR(6) 
5500 PRINT 5550+¢SUMM(6)eIND,AMVSV 
5550 FORMAT(////6X%_* TOTAL COST#/*4+* 5Xe*___. 


© 12° 


RM 

RM 

RM 

RM 

RM 

RM 

RM 

RM 

RM 

RM 
MINe® 9 lL 6X eAGyRM 
RM 

RM 

- RM 
RM 

RM 

RM 

RM 

RM 


—'/'O*,1LOX,*TOTAL COSTRM 


lL = $ *eF762,10X%e*WAS CONSTRAINT VIOLATED? ‘*,A4,5X-*AMOUNT OF VIOLRM 


2ATION = $ *5FT22) 
RETURN 
ENO 


RM 


RM 


16950 
17000 
1705u 
17100 
17150 
17200 
17250 
17356 
17350 
17460 
17425 
17430 
17431 
17452 
17454 
17455 
17458 
17460 
17462 
174454 
17466 
17468 
17476 
17472 
17474 
17476 
17478 
17480 
17482 
17590 
17550 
17600 
17650 
17700 
17756 
17800 
17850 
17990 


17950 
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oool 


0002 


0003 
0004 
0095 
0006 


aaAaAaA 


0007 
0008 
0009 
0010 
ooll 
0012 
0013 
OO14 
0015 
0016 
colT 
0018 
0019 
0020 
0021 
0022 
0023 
0024 


aaa 


0025 
0026 
cO027 
0028 
0029 
0030 
0031 
9032 
0033 
0034 
0035 
0036 
0037 
0033 
0039 
0040 
0041 
0042 
0043 
0044 
0045 
0046 


400 


300 
200 


100 


725 


735 
750 


21 CONCK om DATE = 76020 13/28/17 

SUBROUTINE CONCK(NP,POLN»MENAME ,FP,IFPT,» 100 ¢NMAyNPLAyPCyPCRM,yPM,IB 
IN, NALOWs PMDATA, SMEQTI » SAMFRE sEQUSED 9 £ Us SUMM,NSE T»MPARM,MBRNC,MBRPL 
2eMEQ) 

DIMENSION POLN(MPARM,5S) »MENAME (MPARMs345)yFP(40U 24), IDO(MPARM,25)5 
INMA(MPARM) »NPLA(25)_¢PC(MPARM,25—MBRNC ) »PCRM(MPARMy 3) » PM(MPARM 92593 
3) ,TBN(SLeMBRPLD »NALOW(MPARM sMBRNC) e PMDATAUMPARM, 39495) » SMEQTI (MEQ) 
4 SAMFRE (MPARM) gEQUSED(MPARM MEQ) pEU( MEQ) »SUMM(6) »NSET (MPARM, 3) 

COMMON /RMATCH/NPOL eNL eI DUMMY 

COMMON/NAMED/LENGTH 

INTEGER EQUSED»sEUsPOLN 

INTEGER*2 IDO sNPLA,NMAyPM,FP,NALOW, IBN 


RS1 
COMPARE CONCENTRATIONS TO DETERMINE FEASIBLE METHODS AT RS1 
EACH POINT RS1 
RSL 
DO 130 I=1,NP RSL 
MNCK=0 : RS1 
DO 200 J=1l,NL RS1 
MC=0 RS1 
NMAI=NMA(T) RSL 
DO 300 L=1,NMATI RSt 
NPLAJ=NPLA(J) RSL 
OO 400 K=1l,NPLAJ RSL 
TFCPCOL ed eK)©EQe02) GOTO 400 RSU 
TFCABS(PC( Te JoK)DeLTPCRM(I4L)) GOTO 300 Rit 
CONTINUE RSL 
MNCK=MNCKl1 RS1 
MC =MC +1 RS1 
PM(LeJeMC DEL . RSL 
CONTINUE RS1l 
CONTINUE RS1 
ITFCMNCKSEQ2O) PMU IT sloli=1 RS1 
CONTINUE RSL 
RSL 
ALLOCATE RESOURCES TO FLAGGED POINTS BY FIRST FEASIBLE METHOD RS1 
RSl 
IFPT=6 RSL 
00 500 I=1,NP RSL 
DO 600 J=1,NL RSI 
IDO( I, JI=9 
KNP=0 RS1 
LN=1 RS1 
NPLAJ=NPLA(J) RSL 
O00 700 K=LyNPLAJ RSL 
IFCPCOLeJeK)eGEe0e) GOTO 700 RSL 
IF(PM( Te Je1)eNE2O) GOTO 750 RSL 
NMAT=NMACT) RS1 
DO 725 L=1L»NMAI RS1 
ITF CABSOPC( Ts JeK))eGTePCRM(I LI) GOTO 735 RSL 
CONTINUE RSL 
LN=2 RSL 
PM(TeJeld=1 RS1 
GOTO 750 RS1 
PM(Te Jeol I=L RSL 
LN=0 RS1 
ITEMP=IBN(JSsK+1) 


IF(NALOW( I, ITEMP)-NE-OIGO TO 1000 
NALOW(I + TTEMP)=1 


370 
390 
400 
450 
500 
525 
550 
620 
650 
700 
750 
800 
850 
900 
950 
975 
1000 
1050 
1100 
1150 
1175 
12.0 
1250 
1300 
1350 
1370 
1400 
1456 


1460 
1475 
1579 
1550 
1600 
1605 
1610 
1615 
1620 
1625 
1630 
1635 
1640 
1643 
1646 
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CO4T 
0048 
C049 
0050 
co5sl 
C052 
0053 
0054 
0055 
0056 
J057 


0058 
0059 
0060 
ooél 
0062 
C063 
0064 
0065 
9 0066 
al 0067 
; 0068 
0069 
folen ia) 
oc7l 
oc72 
0073 
OOT4% 
007s 
OC76 
oCcTT 
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900 
800 


1000 


925 
940 
76C 


6co 
$00 


21 


NSUB=PM(1,J,1) 
DO 899 IC=194 


LEQN=PMDATA(T »NSUB,IC 1) 


IFCTEQN.EQ.0)GO TO 910 


DATE = 76020. 


13/28/17 


| 


| 


SMEQTECTEON)=SMEQTI(CLTEQNI*SAMFRE( TI *PMDATA(T oNSUByTCy2) 


EQUSED(T,1EQN) =EQUSED(T sTEQND 41 


EUCTEQNI=EULLEQN) +1 


TF CEUCTEQNID.NE-LIGO TO 910 
SUMM(L)=SUMM(LD*PMDATA(T ¢NSUB,ICs3) 
910 TFINSET(IE«NSUB)eNE2OIGO TO 900 


RS1 
RSL 


LF CPMOATACT »NSUB, IC 54) NEO.) SUMM( IC #1 P=SUMM( IC ¢L Dt LENGTHOEPMDATA(I 
LeNSUB+e2¢5) 


IF CPMDATAUT gNSUBrIC eS) eNEoOeINSET( IT »NSUB)=1 


SUMMCIC+1)=SUMM(IC4+1)4¢SAMFRE( IT) *®PMDATA(TI »NSUB,IC 24) 

CONTINUE RS1 
SU44(6)=SUMM(6)*SAMFRE(1)*®PMDATA( IT »NSUB 91.5) 

TFPT=IFPT+L 

FPCIFPT,LI=I RS1 
FPUIFPT,2)=J5 RSL 
FPC(IFPT,3)=K RSL 
FPCIFP Ts 4)=PM( Te Jel) RS1 
IF(LN-EQ.2)GO TO 925 

TFCLNCEQ.O) PMC To Jel) =0 ~ RSL 
GOTO 940 RSL 
IF(JoNEoL) PMI Ts J3,19=0 RS1 
KNP=KNP#4] RSL 
CONTINUE RS1 
TF (KNP CEQ eNPLAJIIDO( I JD=L 

CONTINUE RSL 
CONTINUE RS1 
RETURN RS1 


END 


1800 
1825 


2000 


2060 
2065 
2070 
2075 


2082 
2085 
2093 
2095 
2100 


2150 
22C0 
2250 
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0o)l SURROUTINE TOC TEMP) RS2 
0C22 REAL TEMP(4,-2) RS2 
oc03 OO 160 I=1le4% RS2 
0004 DO 206 J=le2 RS2 
0005 200 TEMP(IeJ)=0~ RS2 
0596 100 CONTINUE RS2 
0037 RETURN RS2 
0098 END RS2 


| 


FORTRAN 


0001 
Cod2 


C023 
C094 
6095 
9036 
coj7 
0098 
003° 
ooLod 
0oll 
0012 
0013 
0014 
Cols 
Q016 
3017 
cols 
0019 


0020 
0621 
0022 


aan 


Iv G LEVEL 


150 


2c0 
1¢c¢c 


360 


DATE = 76020 | 13/28/1 


2u EQCHEC 


ISAMFRE,SMEQTI gE CTIME sMPARM,MBRNC oe MP2,MEC) 

DIMENSION PC(MPARM,25yMBRNC) »AMAR(MPARMyMP2) »PMDATALMPARMy 39 495 Do 
1TEMP (4_ 2) 4 SAMFRE(MPARM) » SMEQTI( MEQ) ,EQTIME (MEQ) | 
COMMON/R4ATCH/NPOL ep NL» TOUMMY 

INTEGER*#2 AMAR 

DO 169 K=lsNPLAJ 

TF CPCCI,J»KI.GT.%-31 GOTO 150 } 

TF (KeEQe Le ANDe AMARI1¢3)-6GT20) GO TO 100 ; 
AMAR(I sK#2)=0 

GOTO 100 

AMAR( IT sK#205L 

DOO 20C 1C=14 

TEQN=PMDATA(T el elCeol) 

IF(TEQN.EQ.01GG TG 260 

TEMP(ICs1)=1EQN 

TEMP( IC ,2)=TEMP(IC,2)¢SAMFRE(T)*®PMOATA(I,L»IC,2) 

TF CTEMPC ICs 20 ¢SMEQTICIEQN) .GTCEQTIMELIEQN)) GOTD 300 
CONTINUE 

CONTINUE 

RETURN 


AN EQUIPMENT VIOLATION HAS OCCURRED AT THE LEVEL IN QUESTION 
Ividt=1l 


RETURN 1 
END 


7 


RS3 
RS3 


RS3 
RS3 
RS3 
RS3 
RS3 


RS3 
RS3 
RS3 
RS3 
RS3 
RS3 
RS3 
RS3 
RS3 
RS3 
RS3 
RS3 


325 
350 


400 
450 
500 
556 
600 


650 
700 
750 
800 
850 
900 
950 
16.5 
1050 
1100 
1150 
1200 
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6051 
2002 
0093 
0004 
0095 
0006 
Oco7 
0c%8 
0099 
oclo 
oolL 
0012 
0013 
0014 
0015 
0016 


10 


50 


2 VSCHEC OATE = 76020 13/28/1 
SUBROUTINE VSCHEC(I shel VIOL »SUMs*_»PMDATA,EU,SUMM,CNST AR, MPARM, MEQ) 
DIMENSION PMDATA(MPARM, 39495) eEUC MEQ) » SUMM(6) sCNSTAR(6) 

INTEGER €U 

SUM=0 

OO 10 IE=1l+e4¢ 

TEQN=PMDATA(T ol» IEe ld 

IF (TEQN-EQ.0)IGO TO 10 

VS=PMDATA(CI eLeIEe2) 

IFCEUCTEON).GT.1L)I GOTO 10 

SUM=SUMEVS 

CONTINUE 

1F (SUM*#SUMM(1).GT.CNSTAR(1L)) GOTO 50 

RETURN 

IVIOL=2 

RETURN 1 

END 


7 


RS4 
RS4 
RS4 


RS4 
RS4 
RS4 
RS4 
RS4 
RS4& 
RS4 
RS4 
RS4 


325 
350 
400 


450 
475 
500 
550 
600 
650 
740 
750 
800 
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65 


n+ 


Saxe ] 


4 
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o00r 
0002 


0003 
0034 
0035 
0096 
ocr 
coos 
0029 
oclo 
coll 
0012 
0013 
VOLS 
0015 
0016 
COLT 
0018 
0019 
0020 
oc2l 
0022 
0023 
0024 


20 


10 


15 


50 


21 CNCHEC DATE = 76020 


13/28/17 


SUBROUTINE CNCHECCICONNOs! sJolsICPoIVIOL»TOTs* sNPLAgNSET sPMDATA, AM 


LAR »SAMFRE»SUMM,CNSTARsMPARM,MP2) 


DIMENSION NPLA(25) ¢NSET(MPARMs 3) ep PMDATA(MPARMs 34455? AMAR(MPARM MP 


12) .SAMFRE (MPARM) » SUMM(6) »CNSTAR(6) 
COMMON /NAMED/LENGTH 

INTEGER*2 AMAReNPLA 

TOT=26 

NPLAJ=NPLA(J) 

IFC ICP2EQ.59GO TN 20 

IF (NSETCERSLI2EQ.19GO TO 20 


RS5 
RS5 


TF (CPMDATACT ol oe ECONNOs 4) .NE* 0.0) TOT=TOT#LENGTH*®PMDATA(I pl 9205) 


OO 19 K=LeNPLAJ 

TF(AMAR(1,K#2)2E0.0) GOTO 10 
TOT=TOT+SAMFRE (1) *PMDATA(I »L,»ICONNO,ICP) 
CONTINUE 

IFC ICP.NE.5)IGO TN 15 

IF (TOT2E0.0.)RETURN 

TF (TOT#SUMM(6).GTeCNSTAR(6))GO TO 50 
RETURN 

IF (TOTLEQ.0.) RETURN 

TF (TOT*SUMM(TCONNO+1)e¢GT.CNSTAR(ICCNNO*LI) GOTO 50 
RETURN 

IVIOL=1CONNO*2 

IFC ICP.EQ.SeANDeICONNOJEQ.1L) IVIOL=7 
RETURN 1 

END 


RS5 
RS5 
RS5 
RS5 


RS5 
RSS 
RS5 
RSS 
RS5 
RSS 


325 
350 


400 
450 
500 
550 


600 
650 
7co 
756 
800 
850 
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oool SUBROUTINE ADDI TyJeb »NPLA»PC »PMDATA, SMEQTI ,SAMFRE ,EQUSED,EU,NSETs 
LMPARMsMRRNC oMEQ,SUMM) 
0002 DIMENSION NPLA(25) ¢PC(MPARM,25,MBRNC i »PMOATAIMPARM, 34455) ,SMEQTI(M 
LEQ), SAMFARE(MPARM) pEQUSEDIMPARM, MEQ) »EUIMEQ) »NSET(MPARM,3) »SUMMI(6) 
9093 COMMON/RMATCH/NPOL oNL e IDUMMY 
0U4 COMMON/NAMED/LENGTH 
0005 INTEGER*2 NPLA 
0036 INTEGER EQUSED,EU 
0007 NPLAJ=NPLA( J) RS6 325 
0098 OO 100 K=1,NPLAJ RS6 356 
0099 IFCPC(I,JeK).EQ.%.) GOTO 100 RS6 490 
0010 OO 200 I1C=1e4% RS6 450 
coll TECN=PMDATA(T pL oICol)d RS6 500 
0012 TF (TEQN.£0.0) GOTO 300 RS6 524 
GO1L3 SMEQTIE(CIEQND=SMEQTI(LEQNI*+SAMFRE(LD*PMDATA(T gL yICy2) RS6 550 
0014 EQUSED(T »pTECND=EQUSEDIT, LEON) +1 RS6 650 
OOLs EU(TEQN)=EUCTEQN) +1 RS6 625 
COL6 IF(EUCTEQN).NE.1) GOTO 360 RS6 650 
OO1LT SUMMOLD=SUMM(LD*+PMDATA(T Lo IC 3) oa RS6 790 
oo1s 3GO SUMM(TC4+1)=SUMM(IC41LI+SAMFRECED*®PMDATACT ol » IC 94) RS6 750 
0019 TF(NSET(IT,L).EQ.19GO TO 200 
0c20 TF (CPMDATACT pho IC e4) eNE*0 00) SUMM( C41 D=SUMM(IC+LICLENGTH®PMDATA(I »L 
142-5) 
902l 200 CONTINUE RS6 660 
0022 SUMM(6)=SUMM(6)4SAMFRE(T)*®PMDATA(T,L 51.5) RS6 850 
0023 100 CONTINUE RS6 900 . 
0024 RETURN RS6 950 ‘ 
0025 ENO RS6 1000 


05536 
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901 SUBROUTINE SETCLedel PC eAyNyMPARMyMP2 oMBRNCI 

| C022 DIMENSION PC(MPARM,25,MBRNC) yA(MPARM, MP2) pN(25) 

C093 INTEGER®2 AgN 
0054 ACT sLI=L RS12 40 
0095 A(I,2)=J RS12 50 
C036 NP=N(J) RS12 60 
oco%7 DO 20 K=l+NP RS12 76 
0008 IFC PCOL eS eK) eGTe0.) GOTO 40 RS12 80 
0009 AC I,K*#2)=0 
0010 GOTO 20 RS12 100 
OOoLl 40 ACT eK#20=L RS12 110 
0012 20 CONTINUE RS12 120 
0013 RETURN RS12 130 
0014 END RS12 140 


sal 
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oool 


0002 


0033 
0004 
C025 
0056 
003” 


C028 
C039 
colo 
coll 
2012 
0013 
COl4 
0015 
0016 


col? 
c018 
ool9 
C620 
0021 
0022 
C023 
0024 
C025 


0026 
0027 
9028 
C029 
0030 
oc3h 
0C32 
0033 
0034 
0035 
0036 
0C37 
0038 
cc39 


0040 
C041 
C042 
0043 


C044 
0045 
0046 
0047 


0048 


DATE = 716020 13/28/1 


SUSROUTINE PLEQCHE Ls ISTOPs LEQNRe* ,#+NOVeAMARy PMDATAsPM,yNPLA, TEMP, 
LPC »SMEQTI »SAMFRE ,EQUSED ,EUeNSETeE LS IMEs SUMM»CNSTARyMPARM,MP2,MEQeM 
Z2BRNC? 

DIMENSION AMAR (MP ARM. MP2), PMDATA(MPARM, 39455) »PM(MPARM, 2553) eNPLAC 
125) 4 TEMP (452) ePC(MPARMs25 »MBRNC) pSMEQTI (MEQ) pSAMFRE(MPARM J), EQUSED( 
BMP ARM,MEQ) eEUCMEQ) pNSET(MPARM, 3) pEQTIME (MEQ) o SIIMM(E} eCNSTARI6) 
COMMON/RMATCH/NPOL » NL IDUMMY 

INTEGER EQUSED,EU | 

INTEGER®2 AMAR,PMyNPLA 

PRINTLGsNOVelI 

1G FORMATE*2E*,5Xe*VEQLATION NUMBER *¢I1,-* HAS OCCURRED FOR PARAMETER 
1*,12) 
ImMO=I 

50 IMO=IM0-1 

fF CIMOWLE.E STOP) RETURN 1 
LR=AMAR(IMOl1L) 

JR=AMAR(IMO,2) 

150 JRR=JIR 

LRR=LR 

PRINT 60eIMO,IReLR 
60 FORMAT(*-",1CXe*PARAMETER UNDER CONSIDERATION=*,12,5%. PREVIOUS ASS 
LIGNMENT WAS AT LEVEL *212,* BY METHOD *%o11) 
TE INOV.GT.2.ANDeNOVeLE.6) GOTO 200 
IF (NOV.EQ.2.0R-NOV.EQ.7) GOTO 300 
OO 1090 1C=154 
IN=PMDATA(CIMOeLReIC el} 
TFLINSEQ-IEQNR) GOTO 300 
100 CONTINUE 

GOTO 50 
200 TFE(PMDATA(IMI,LR, NOV-2,4)-LE.0.) GOTO 50 
3CO CALL SUBTIIMOeJReLRe NPLA, PCy PMDATA,s SMEQTI » SAMFRE gE QUSED sEUsNSETe 

IMPARM,.MBRNC »MEQeSUMM) 

OO 400 MC=1,3 : 

TF(LReEQePMCIMOeSReMCII GOTO 500 
400 CONTINUE . 
S00 IF (MC.NE.3) GOTO 559 

“C=0 

SX=IREL 
550 WC=MC+l 

OO 600 J=JR»NL 
NPLAJ=NPLA(J) 

OG 700 M=MC,3 

L=PM(IMOsJ»™) 

IF(L2EQ.9) GOTO 690 
CALL TOC TEMP) 

CALL EQCHECEIMOs Jeb eMeNPLAJ eI VIOL » IEQNs E700» PCy, AMAR» PMDATA, TEMP oSA 
AMFRE,SMEQTI ,ZEQTIME »MPARM,MBRNC o MP2 MEQ) 

CALL VSCHECCIMO,L y I VIOL » SUMsE 700 ¢PMDA TA, EUs SUMM eCNSTAR »MPARM, MEQ) 

IFOUR=4% 

00 800 ICONNO=1,44 


7 


*7 

*7 

*7 

RST 
RS7 
RST 
RST 
RST 
RST 
RST 


*T7 

7 

RS7 
RST 
RST 
RS? 
RST 
RST 
RST 
RST 


RS7 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RST 
RS7 
RST 
RS7 
RS? 


RS7 


CALL CNCHEC(ICONNOsIMOe Jel» IFOURsIVIOL SAT pE7TO0,NPLAgNSET op PMDAT Ay AM 


LAR ,SAMFRE » SUMMeCNSTAR,MPARM MP2) 
600 CONTINUE 
IONE=1 
IFIVE=5 


RST 


CALL CNCHEC(TIONEs IMOsJeolL eT FIVE sIVIOL eCOSTeE TOO ,NPLANSETsPMDATA GAM 


LAR » SAMFRE » SUMM es CNS TAR» MPARM MP2) 
CALL ADDIIMOsJels NPLA,PC,yPMDATA, SMEQTI » SAMFRE pEQUSEDy EUsNSETy 


212 
314 
316 
325 
350 
375 
400 
450 
800 
850 


460 
465 
479 
475 
506 
550 
600 
650 
758 
875 


950 
1000 
1050 
11cc 
1150 
1200 
1250 
1300 
1350 
1400 
1456 
1500 
1550 


1700 


1800 
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LMPARM,MBRNC »MEQ,SUMM) 


0049 NOvV=0 RST 1925 
C050 RETURN 2 RS7 1956 
0051 700 CONTINUE RST 2000 
0052 690 MC=1 RST 2050 
0053 600 CONTINUE RS7 2100 
0054 CALL ADD( IMO, JRReLRe NPLAs PCe PMDATAs SMEQTI » SAMFRE sy EQUSED cEUONSE Te 
1MPARM,MBRNC »MEQ,SUMM) 

0055 GoTo 50 RST 2290 
0056 900 RETURN RS7 2250 
0057 END RST 23C0 


GO62 
VAS 


eee aioe ES 


FORTRAN IV G LEVEL 21 SUBT DATE = 76020 13/28/1 

oodl SURROUTINE SUBTUI sJelb eNPLAsPC yPMDATA,SMEQT I, SAMFRE,EQUSEDsEUyNSETy 
IMP ARM» MBRNC »MEQ, SUMM) 

00)2 DIMENSION NPLA(25) ¢PC(MPARMs25eMBRNC) p PMDATA(MPARMy 36495) eSMEQTI(M 
LEQ) »SAMFRE(MPARM) ,EQUSED( MPARMyMEQ) ,EU (MEQ) »NSET (MPARM, 33 ySUMM(6) 

0003 COMMON /RMATCH/NPOL #NL » IDUMMY 

OC 54 COMMON/NAMEO/LENGTH 

c095 INTEGER EQUSED,EU 

0036 INTEGER*2 NPLA 

0097 NPLAJ=NPLA(J) 

C028 DO 100 K=1,NPLAJ 

0009 IFCPC(LeJeKI.EQ29.) GOTO 100 

00106 O00 200 IC=1.4 

9011 TEQN=PMDATA(T sLeIC,1) 

oo0l2 TF(TEQN-EQ.C) GOTO 300 

c013 SMEQTICTEQN)=SMEQTI (IEQN) -SAMFRE(ITN®PMOATA(I,L,ICo2) 

0014 EQUSED( 1, TEQNI=EQUSEDI IT, IEQN)-1 

0015 EU(TEQNI=EU(TEQN)J-1 

C016 IF(EUCTEQN).NE.C) GOTO 350 

ooL17 SUMM(01)=SUMMOLI-PMDATALT «Le IC 3) 

co1e 300 SUMM(IC#1)=SUMM(IC4+1)-SAMFRE(L)*®PMDATA(T ol yICo4) 

ool9 IFINSET(I,L)-£Q.1)GO TO 200 

0020 TF CPMDATACT ph op 1Co 4) eNE2 0.0) SUMM( [C41 )=SUMM(IC4L J-LENGTH®PMDATA(TyL 
12,5) 

0021 200 CONTINUE 

0022 SUMM(6)=SUMM(6)—-SAMFRE(T)*®PMDATA(T lL o125) 

0023 100 CONTINUE 

C024 RETURN 

0025 ENO 


7 


R58 
RS8 
RSB 
RS8 
RS8 
RS8 
RSB 
RS8 
RS8 
RS8 
RS8 
RS8 


RS8 
RS8 
RS8 
RS8 
RS8 


325 
350 
420 
450 
5c0 
524 
550 
600 
625 
650 
790 
750 


806 
850 
900 
950 
10006 
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ocolL 
0032 


c0)3 
0034 
cots 
0096 
0097 
0038 
0cj9 
ccic 
ooll 
v012 
ocl3 
COOLS 
o0lLs 
C016 
0017 
0018 
0019 
0020 
0021 
0622 
0023 
0024 
0025 
0026 
0027 
0028 
0029 
0030 
9031 
0032 
0033 
0034 
0035 
CC 36 
0037 
0038 
0039 
0040 
cc4l 
0042 
9043 
0044 
C045 


0046 
0c4T7 
C048 
0049 
0050 


Tin RRS a 


SUBROUTINE INFORM(CAMAR.TBNy»NPLA,POLNyFP,IFPT yNBRNCHyBRANCHy BRNeMBR 


INC pMPARM»MP2,MBRP]) 


DIMENSION AMAR(MPARM,MP2),I1BN(51_eMBRPL) »NPLA(25) »sPOLN(MPARM,5) »NBR 


INCH(MBRNC 52) +BRANCH(MBRNC »MPARM),BRN(MBRNC) 
COMMON /PASS/NP »NB 
INTEGER*2 IBNeNPLA,s AMAR» BRN»BRANCH 
INTEGER POLN 
INTEGER#2 FP(400+4) 
DO 10 L=1.NB 
BPN(T)=9 
0G 10 J=LeNP 
10 BRANCH(I,J)=C 
WRITE( 3,993) 
OO 109 [f=1l,NP 
LEVEL=AMAR(1I,2? 
NP TS=NPLA(LEVEL) 
DO 100 J=1,NPTS 
TF (CAMAR(1,J+2)5£Q.0)GO TO 100 
N=IBN(LEVEL,J+1) 
BRNIN)D=BRNOND +L 
NSUB=BRN(N) 
BRANCH(N,NSUB)=I 
100 CONTINUE 
OO 2uc T=1,NB 
KOUNT=0 
OO 190 K=1,NP 
TF(KeEQe LIPRINT 902,.(NBRNCH(TI oLL) eLL=152) 
IF (BRANCH(I2K).EQ.0I1GO Ta 210 
KOUNT=1 
J=BRANCH(T KI 
WRITE(3,900)(POLN( JoII) oII=1,5) 
GO TO 240 
210 IF(IFPT£EQ.0IGO TO 211 
DO 212 M=1,IFPT 
NSUB=FP(M,_1) 
MM=FP(M,2) 
NN=FP(M,3) 
LL=IBN(MM,NN+1) 
IF(LL -EQ. 1 PWRITE( 3,990) (POLNEINSUBoIT) LL 216%) 
TF (LL2EQ. 1 YKOUNT=1 
212 CONTINUE 
211 TFC(KOUNT.EQ.C)WRITE(3,901) 
GO TG 209 
240 CONTINUE 
GOS FORMAT{(® *,52X_544) 
901 FORMAT(® *,27X,"NO MEASUREMENTS MADE*) 


902 FORMAT(*O%»//e2X%e"FOR BRANCH *»2A4_y* THE PARAMETERS MEASURED ARE:°* 


le//) 
903 FORMAT(*1*,*PARAMETERS MEASURED AT EACH BRANCH®) 
190 CONTINUE 
209 CONTINUE 

RETURN 

END 
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car one | 
00)2 


0003 
C034 
0035 
0036 
00)7 
0078 
0099 
0010 902 
J0L1 
0012 
0013 30 
C014 963 
ooL5 904 
0016 905 
ool? 
9018 906 
0019 
0020 
2021 
0022 
0623 
0024 
0025 
0026 
0027 20 
0028 15 
oc29 
C039 
0031 
0032 
C033 
0034 
0035 
00 36 
0037 16 
c038 8 
0039 
0040 
0041 
C042 17 
0043 


9044 900 
0045 901 


0046 10 
0047 
0048 908 
9049 
co5) 
co51l 50 
cos2 
0C53 
0054 


21 SAMPLE 


DATE = 76020 


13/28/17 


SUBROUTINE SAMPLT (SAMFRE»SUMM,IFPTyFP, IBN» NBRNCHy BRANCH sMPARM,yMBRN 


1C+“BRPLy»NROUTyNFLOW) 


DIMENSION SAMFRE(MPARM) ySUMM(6),EBN(51+MBRPL) sNBRNCH(IMBRNC +2) 9 BRAN 


ICH (MBRNC »MPARM) »NROUT(MBRNC) »NFLOW(MBRNC) 
DIMENSION NSAMPL(1095)¢SAMPTI(10),SETUP(1O) 
COMMON/PASS/NP,_NB 
COMMON/NA*ED/LENGTH 
INTEGER*2 IBN,BRANCH 
INTEGER*2 FP(400,4) 

PRINT 902 

PRINT 905 
FORMAT(*L*y*SAMPLING INFORMATION®) 

DO 30 1=1,.4 
READ 903s (NSAMPLUIsK) oK=155)9SAMPTI(C I )»SETUP(T) 
PRINT 904s (NSAMPL (I,K) »K=195) »SAMPTI( I) ,SETUP(I) 
FORMAT(5A4,2F6.1) 

FORMAT (*0* 55A4¢8X pF6eL eo LOX oF bel) 

FORMAT(*O*%,* SAMPLENG TECHNIQUE* «5X¢*SAMPLE TIME 
READ 9C6, (NROUT(I),I=1L_NB) 

FORMAT(4612) 

OO 10 [=1l+NB 
KOUNT=0 
SMAX=0. 

OO 20 J=leNP 
IF (BRANCH(I,JIeEQ.0)G0 TO 15 
LL=BRANCH(I, J? 

CF (SAMFRE(LL) «GT. SMAX DSMAX=SAMFRE(LL) 

KOUNT=1 
CONTINUE 
IF(TFPT.EQ.0IGO TO 18 
DO 16 M=1,IFPT 
NSUB=FP(IM, 1) 

MM=FP(M,2) 

NN=FP(M,3) 

LL=IBN(MM,NN@|L) 

GFCLL.NE.TIGO TO 16 

«OUNT=L 
TF CSAMFRE (NSUB)2GT.SMAK)SMAX=S 
CONTINUE 
IF (KOUNT-EQ.09GO TO 17 
KK=NROUT(T) 

TEMP =SMAX*SAMPTI(KKI+LENGTH*SETUP(KK) 
SUMM(2)=SU4M(204TEMP 
TFC KOUNT.SEQ.9DPRINT 90001 e (NBRNCH( Io MM) pMM=1 92) 


a 


“ SECNSUB) 


SET UP TIME*) 


IF (KOUNTSEQsLIPRINT SOL ele (NBRNCH( LT MM) go MM=1 92) oSMAXy, (NSAMPL (KK y NN 


LY eNN=1Le5)5 TEMP 


FOUMAT(*O", "AT BRANCH "120" » "»2A%_* NO SAMPLES WERE TAKEN®) 
FORMAT(*O',*AT BRANCH %e¢f2e" » "s2A4_2XeF8025" SAMPLES WERE TAKEN 


LUSING % 544° TAKING *oF 8.29% MINUTES') 

CONTINUE 

PRINT 9C8 

FORMAT(*1*,*FLOW MEASUREMENT I NFORMATICN® ) 

00 50 1=596 

READ 903, (NSAMPL(I eK) eK=1e5)e¢SAMPTI(I),SETUP(I) 
PRINT 994s (NSAMPL( I eK) oK=1 95) »SAMPTI( I) ,SETUP(T) 
READ 906, (NFLOW(I),T=1¢NB) 

0051 f=1,NB8 

IF (NFLOW(IT).EQ.0)GO TO 52 
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0055 NSUB=NFLUW(1) +4 
0056 TEMP=SETUP(NSUB) *LENGTH } 
0057 SUMM(2)=SUMM(2)+TEMP | 
0058 PRINT 909919 (NBRNCH( I eNN) gNN=1 92) 9 (NSAMPL (NSUB yKK) »KK=1 95) » TEMP 
0059 909 FORMAT(*9*,*FLOW WAS MEASURED AT BRANCH 'yI2y* » %¢2A%s* USING THE 
1 ',5A4—" TAKING "»F 8.29" MINUTES") 
0060 GO To 51 | 
C061 52 PRINT 910,12 (NBRNCH(IyNN) »NN=1y2) 1 
0062 910 FORMAT(*O",*NO FLOW MEASUREMENTS WERE MADE AT BRANCH 'y1292X»2A4) 
0063 51 CONTINUE 
006% RETURN 
0065 END 


Me ne 
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cool SUBROUTINE PRPAR(TFPT,IFPP,FP,°GLN»eMENAME »EQNAMEs I pAMARyNPLAgIBNy 
1PC ,SAMFRE sPMDATA, SMEQTI »EQTIME » SUMMyCNSTAR »MPARMyMBRNC »MBRP1Ly MP2, 
2MEQ) 

0092 DIMENSION FP(400 +4) eMENAME (MPARM,» 395) sEQNAME(MEQ,5) »AMAR(MPARMyMP2 


L) eNPLA(25) eT RN( 51 »MBRPL) »PC(MPARM,25 yMBRNC) ySAMFRE (MPARM) »PMDATA(M 
2PARMe 39 405) 5 SMEQTI( MEQ) »eEQTIME (MEQ) »SUMM(6) »CNSTAR(6) »POLN(MPARM, 
355 
COMMON/RMATCH/NPOL ¢NL» LDUMMY 
COMMON/NAMED/LENGTH 
INTEGER POLN,EQNAME 
INTEGER*2 NPLA,AMAR,FP,IBN 
DATA IVES/*YES */»NO/*NO */,1BSP/* A RS9 370 
1 PRINTSO RS9 390 
50 FORMAT(*O" + LOXe*PARAMETER® ¢ 31X—*METHOD' oe 19X_e*MEASURE POINT, BRANCH 
1 NOws EXPECTED VALUE*) 


PRINTSL RS9 500 
SE FORMAL CEC ClONS oo ONSEN tn Oe OK 6 ee 

| ees eee ee a | 

LI=0 RS9 650 
NPTS=0 

J=AMAR(I 2) RS9 709 
NPLAJ=NPLA( J) RS9 750 
OO 150 K=LeNPLAJ RS9 890 
TE (CAMAR(T,K#21)2EQ.0) GOTO 150 RS9 850 
TF(LI.NE.O) GOTO 100 RS9 900 
LI=tLiel RS9 950 


NPTS=NPTS¢1 
NSUP=AMAR(T 1) 
BRITEC3,IOVCPOLN(UT gITL) eo LL=1 05) 5 (MENAME( I »NSUBoNN) pNN=1 05) oJ eKe IBN( 
LSeK*+LD PCO oS eK) 
GO FORMATULIK SAG oe LOX SAG oe LAK oe MUP op L2e tet ol Ze? dep AXel2ZeIXe F903) 
GOTO 150 RS9 1150 
100 PRINT LLOsJoKe IBNG J eKtl) ,PC(L »JyK) 
1LLO FORMAT (BOK, 8 (8 e f2e% ef oll 8d % eo BX el 209Xe F923) 


150 CONTINUE RS9 1300 
tet LI oEQ.0) PRINTIS3e(POLN(T IL) ,1T=1,5) RSI 1302 
153 FORMAT(13X,5A4) RS9 1303 
KPP=0 RS9 1310 
155 TFC IFPP.ST.IFPT) GOTO 200 RSI 1325 
LF(CFPCTEPP,1L)NEwI) GOTO 200 ~ RS9 1350 


JJ=FP(TEPP.2) 

KK=FP(IFPP,3) 

NSUB=FPC(IFPP,4) 

CO=ABS (CPCI Te JSeKKID 

NPTS=NPTS¢#1 

WRITE( 39169) (MENAME(T »NSUBe NN) pNN=1 95) op JS e KK eo LBN( JS eKK 41 5CO 
160 FORMATIGAX, SAS, IK ys PH gp 2X ye (Op L2e eo el 25°)% pBX ol 2 eIX oF 903) 


TF PP=IFPP+4lL RS9 1550 

LF CFPC IE PP-1,4).EQ.AMAR(Ie1))GO TO 155 

KPP=KPP4L RS9 1560 

GoTo 155 RS9 1565 C45 1 


200 FTOT=SAMFRE(I)*®NPTS 
PRINT 210,FTOT 

210 FORMAT(21X,*TOTAL SAMPLE NUMBER EXPECTED*/26X,FGele* SAMPLES") RS9 17900 
PPRINT250 RS9 1750 

250 FORMAT(*C*,2CX,*TOTAL RESOURCES ASSIGNED* 640Xy*WAS CONSTRAINT VIOLRS9O 18C0 
LATED*/*4*,20X,*___ eth ectedmmie SIUKN ecapubactiobbawaekadt oe Looe 
2-8 /30Ke* LTEMS* »29Xe"TIMES") RS9 1900 
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I 
0049 NSUB=AMAS(i,1) 
0050 00 300 IC=144 RSY 1950 
0051 TEQN=PMDATA(T »NSUR SIC 61) 
0052 IF(TEONSE9.0) GOTO 355 RS9 2050 
v053 IND= NO RS9 2100 
0054 TIME =SAMFRE (TD ®PNDATACT ¢NSUBy 1C¥2)*(NPTS-KPP) 
0055 IF (SMEQTICIEQN).5TEQTIME(TEQN)) IND=IYES RSI 2250 | 
9056 CALL TICHAN( TIME, IHRS»MIN) RS9 2250 
0057 PRINT350+1C of EQNAME ( TEQN, NN) @NN=1 6599 THRS¢MINy IND RSI 2300 : 
0058 350 FORMAT( 26X11 e2X+5A4e9X e139" HRSo'y2Kel29* MINSo* pL 9Xe AG) RSI 2350 / 
0059 300 CONTINUE RS9 2450 ' 
0060 355 IF(KPP.EQ.0) GOT 400 RS9 2405 { 
0061 PRINT360 RSI 2410 
9062 360 FORMAT(*C',29Xy*FLAGGED POINT ITEMS® 915K" TIMES®) RS9 2415 
i 9063 NSUB=FP(IFPP-KPP,4) 
; 0064 DO 375 IC2=1e4 RS9 2417 
0065 TEQN=PMDATA(I »NSUB yIC2y1) 
0066 IF (TEQN.EQ.0) GOTO 400 RS9 2421 
\ 0067 IND=NO RSI 2423 
1 0068 TINE =SAMFRE(T)®PMDATA(T »NSUBy 10292) *KPP 
. 0069 IF (SMEOTICTEQN).ST.EQTIME(TEQN)) IND=YES RS9 2427 
2070 CALL TICHAN(TIME, [HRS »MIN) RS9 2429 
oc7l PRINT350 0102» (EQNAME ( TEQNy NN) ¢NN=1 9509 THRS yMINy IND RS9 2431 
oo72 375 CONTINUE RSI 2433 
0073 PRINT380 RS9 2435 
0074 380 FORMAT(*0",20X,*ANALYST TIMES ARE SUMMED FOR BOTH METHODS) RS9 2437 
0075 &CC PRINT459 RS9 2450 
0076 450 FORMAT( #9", 29K, "ANAL YST®) RS9 2500 
co77 NSUB=AMAR(T, 1) 
oc 78 NSUBL=FP(IFPP-KPP 44) 
cor9 ©0 560 NAN=144 RS9 2550 
6080 TIME=SAMFRE( 1) *PMDATACT ¢NSUB yNAN»4)®(NPTS~KPP)+SAMFRE (1) @PMDATA(I, 
ENSUBL + NAN +4) #KPP 
0031 NUM=NP TS-KPP 
0082 IF (NUM.EQ.C)GO TO 600 
9083 IF (PMDATA(T sNSUB,NANs 4) oNE oO. DTIME=TIME*LENGTH®PMDATA( I ¢NSUB- 25) 
0084 IF (NSUB.EQ.NSUB1IGO TO 610 
0085 600 [F(PMDATA( I yNSUBL yNAN¢ 4) oNE oOo) TIMESTIME*LENGTH®PMDAT ALI yNSUBL 9295) 
1) 
0036 610 IND=NO 
oc87 IF (SUMM(NAN#1) .GTeCNSTAR(NAN*L)) INO=LYES RS9 2700 
0038 CALL TICHAN( TIME, IHRS»MIN) RS9 2750 
cos9 PRINTS50,NANy THRS »MINy IND RS9 2800 
0090 550 FORMAT(26X»*CLASSIFICATION *yILyl6X9l3e* HRSo%e2Xy12y" MINSe*y19XyRSI 2850 
1a4) RS9 2990 
cool S00 CONTINUE RS9 2950 
0092 RETURN RS9 3000 
6093 END RS9 3050 
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oool 
0032 
0093 
0004 
0095 
0096 
0O0oT 
0038 
0009 
0010 


5 


10 


21 USECT DATE = 76020 
SUBROUTINE USECT(EyNPyNEyU,MPARM,yMEQ) 

INTEGER E(MPARM,MEQ) »U(MEQ) 

DO 5 L=1,75 | 
U(L)=0 | 
DO 10 IE=1,NE 
DO 10 [=1,NP 
IF(E( Ty TE) GT2O) ULTEM=UCTED+1 
CONTINUE 

RETURN 

END 


oe 


a ee a RAs SS Sere rE 


13/28/17 


RS11 
RS11 
RS11 
RSLL 
RS1L 
RS1L 
RS11 
RS11 


150 
2c0 
256 
340 
350 
400 
450 
500 
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Godl 
0c 22 
0093 
0004 
0095 
0006 


21 TICHAN 


SUPROUTINE TICHAN(T,THRS»MIN) 
1=T 

THR S=1/69 

MIN=T-60*IHRS 

RETURN 

END 


DATE = 76020 


13/28/17 


RS10 
RS10 
RS10 
RS1O0 
RS10 
RS10 
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3249 
C.57 
0248 
0.30 
1.606 
4-89 
5250 
0.27 
Yer 

GeCl 
€.30 
0.20 
C.20 
we4d 
2.CO 
0.09 


05128 


THE NUMBCR OF PARAMETERS = 17 
THE FIRST © ARE NON-COMPETING PARAMETERS 


THE LENGTH OF THE SURVEY IS 5 DAYS 


j 


PARAMETER # PARAMETER NAME # OF METHODS AVAIL. FOR ANAL. # OF at TO BE ANALYZED/DAY/SAMPLE POINTsTOTAL #SAMPLES/POINT 

1 PH 3 ; 12.0 60.0 

2 CONDUCTIVITY 3 12.0 €0.0 . 
3 OISSOLVED SOLIOS 3 5.0 25.0 
4 NITRITE/NITRATE(ND 3 4.0 20-0 
5 TOTAL N(KJEHDAHL) 3 4.0 20.0 
6 TOTAL SOLICS 3 . 1.0 5-C 
7 SUSPENDED SOLIDS 3 1.0 5.0 
8 TOTAL HARDNESS 3 6.0 30.0 
9 SULFATES 3 4.0 20.0 
10 CHLCRIDES 3 4.0 20.0 
ll VOL SUSP SOLIDS 3 4.0 20-0 
12 TOTAL PHOSPHATES 3 4.0 20.0 
13 TNT 2 4.0 20.0 
14 CALCIU™ 2 4.0 20-0 
15 ALKALINITY 3 4.0 20.0 
16 TURBIOITY 3 4.0 20-0 
~ i? ACIDITY 3 4.0 20.0 

G54593 


aseot eb 


TOPOLOGICAL OEFINITIGN DATA 


NUMBER OF SOURCES 


16 


TOPOLOGY MATRIX 


SOURCE L PPNO 
SOUKCE 2 PAPC 
SOURCE 3 PAGP 
SOURCE & PSAC 
SQURCE 5 PNAC 
SOURCE 6 PAPP 
SOURCE 7 PNBP 
SOURCE 8 PSWG 
SOURCE 9 PBON 
SOURCELO PGIX 
SOUKCELL PCOM 
SOURCEL2 PCwlz 
SOURCEL3 BPP 
SOURCELS PREX 
SOURCELS NGS 
SOURCELG MCS 


POLLUTANT @ATRIK DATA 


SOURCE i @PND FLOW 
SOURCE <2 PAPC FLOW 
source 3 PAOP FLOW 
SOURCE « PSAC FLOW 
SOURCE 5S PNAC FLOW 
SOURCE 6 PAPP FLOW 
SOURCS 7 PNBP FLOW 
SOURCE 8 PSWG FLOW 
SOURCE 9 PBON FLOW 
SOURCE lu PBIK FLOW 
SOURCE 1L PCOW FLOW 
sOuRCcE 12 PCwWZ FLOW 
SOURCE 13 PBPP FLOW 


NUMBER OF BRANCHES 


2I 


DATA 


110000000000000001203 
010069000000000001203 
001000000000030001203 
000011120000C090001203 
000111120090020001203 
000001120000950001203 
0000C0001200C€03001203 
00000000000C0010000023 
0000009000610030001203 
006000C900100 90001203 
000000000010000001203 
0000090000010%0001203 
0000000000001090001203 
000000000000010011203 
000000000000031011203 
000000000080000 111203 


NUMBER OF OUTFALLS 


SOURCE 15 PNGS FLOW 0.002 


SOURCE 16 PNCS FLOW 0.0C2 
PARAMETER PH CONDUCTIVITY DISSOLVED SOLIDS | NITRITE/NITRATE(N) TOTAL N(KJEMDAHL) TOTAL SOLIDS 
1 PPNOD 6.000 060 250.000 0.500 2.300 290.C00 
2 papc 7.700 416.000 240.000 | 14.000 1.800 243.000 
3 PAOP 7.500 346.000 240.000 3.200 0.030 244.000 
& PSAC 2.560 724.000 360.000 3.700 2-300 403.000 
5 PNAC 6.300 726.000 593.C00 29.000 1.100 603.000 
6 Papp 6-200 0.0 270.000 4.000 2.200 300.000 
7 PNBP 2.500 564.000 2609-000 104.000 17.000 2650.000 
8 PSWG 6.700 534.000 259.000 1.400 1.500 283.000 
9 PBON 6.400 0.0 270.000 0.800 2.200 300.000 
10 PBIX 7.000 0.0 251.000 0.530 2.200 254.000 
11 Pcow 6.400 600.000 390.000 0.500 2.300 449.000 
12 PCwZ 6-400 9.0 390-000 0.500 2.360 440.000 
13 PAPP 5-300 357.900 530.000 7.500 0-700 590.000 
14 PBEX 6200 1000. 000 186.000 0.630 2.200 200.00 
15 PNGS 7.360 1220-000 523.000 5.800 2.540 531.000 
16 PNCS 7.000 1200-000 523.000 5.800 5200 531-000 
PARAMETER SUSPENDED SOLIDS TOTAL HARDNESS SULFATES CHLORIDES VOL SUSP SOLIOS TOTAL PHOSPHATES 
SOURCE 
1 PPND 29.006 90-000 50.000 9.300 102.000 0.630 
2 paPc 1.900 122.000 50-000 1.700 0.0 0.030 
3 paopP 0.700 90.000 50.000 1.300 102.000 0.030 
& PSAC 40.000 90-000 262.000 9.300 102.000 0.630 
5 PVAC 7.100 99.009 262.009 9.300 102.006 0.030 
6 PAPP 30.000 122.000 50.000 1.7% - 0.0 0.630 
7 PNBP 5.000 25.000 2¢0c.000 32.000 12.000 0.600 
8 PSWG 18.000 123.000 6B .000 17.300 12.000 1.coo OL21 
9 PBDN 30.000 122.000 50.000 1.700 0.0 0.636 
10 PBIX 2.706 122.007 76.000 1.700 6.0 0.630 
11 PCOW 40.000 90.000 50.000 9.300 10.000 0.630 mt 
—_— — a 


PARAMETER TNT 


ume 


13 pPBPP 
14 PSEX 
15 PNGS 
16 PNCS 
SOURCE 

1 PPNO 
2 PAPC 
3 PAOP 
4 PSAC 
5 PNAC 
6 PAPP 
7 PNBP 
8 PSWG 
9 PRON 
10 PRIX 
11 PCOW 
12 PCwZ 
13 PBPP 
14 PSEX 
15 PNGS 
16 PNCS 


CLARIFIER AREA IN ACRES IS 90,000 


eee 
55.000 
14.CO0 
8. 0CC 


8.000 


0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
6.0 
0.0 
0.0 
0.0 
5.0 
0.0 
0.0 


0.0 


svevve 


35.909 
93.000 
99-000 


90.600 


CALCIUM 


9.0 
98.900 
68.000 

68.000 
68.000 

0.0 
20,000 

420 
92.000 

0.0 
60.000 

0.0 
20.000 
70.000 
70.000 
68.000 


50.00) 
110.009 


ALKALINITY 


70.000 
79.000 
69.000 
0.0 
50.000 
62.000 
0.0 
79.000 
62.000 
62.000 
100.000 
70.000 
58.000 
62.000 
60.000 
80.000 


24.000 
9.800 
0.0 
9.300 


TURBIOITY 


0.0 
0.0 
0.0 
10.000 
15.000 
0.0 
4.060 
0.0 
0.0 
0.0 
3-000 
0.0 
762000 
0.0 
11.100 
0.0 


55.000 
102.000 
0.0 
102.000 


ACIOLTY 


0.0 
2-000 
3.406 
90.900 
9-200 
G6 
100.000 
0.0 
10.000 
0.0 
10-000 
G0 
30.000 
0.0 
20.000 
0.0 


4.810 
0.630 
0.680 


0.630 


654.22 


BRANCH Nu. 


AND NAME 
BRANCH1L 
BRANCH2 
BRANCH3 
BRANCHS 
BRANCHS 
BRANCH6 
BRANCH? 
BRANCHB 
BRANCH9 
BRANCHLO 
BRANCHILL 
BRANCH12 
BRANCHL3 
BRANCH14& 
BRANCHLS 
BRANCHI6 
BRANCHIT 
BRANCHLSB 
BRANCHLO 
BRANCH20 


BRANCH21 


FLOW 
0-4C0 
0.401 
0.017 
O.CT7? 
0.116 
1.006 
1.006 
1.006 
0.co8 
3.006 
0.024 
0.200 
0.001 
0.02 
6.cC2 
0.C02 
0.006 
1.663 
1.663 
0.270 
1.933 


1 


2 


20 


21 


PARAMETER PH 
ELEMENT 


BRANCHL 
BRANCH2 
BRANCH3 
BRANCHS 
BRANCHS 
BRANCH6 
BRANCHT 
BRANCHA 
BRANCH9 
BRANCHLO 
BRANCH11L 
BRANCH12 
BRANCHL3 
BRANCH14 
BRANCHLS5S 
BRANCHI6 
BRANCHIT 
BRANCH18 
BRANCHL9 
BRANCH20 


BRANCH21 


ELEMENT 


1 


2 
3 


BRANCHI 
BRANCH2 
BRANCH3 
BRANCH 
BRANCHS 


BRANCH6 


7.000 


PARAMETER SUSPENDED SOLIDS 


29.000 
28.990 
0.700 
7.100 
18.180 


28.639 


2l 


OUTPUT PULLUTANT DATA MATRIX FROM TOP SUBROUTINE 
NUMBER OF BRANCHES= 


CONOUCTIVITY 


0.0 
1.536 
346.000 
726.009 
726.000 
83.586 
83.586 
83-586 
564-000 
564.000 
353-172 

0.0 
357.000 
10°50.060 
1220.000 
1230.000 
1134-400 
66.384 
66.384 
534.000 


131.692 


90.000 
90.118 
90.060 
90.000 
962000 


118.316 


NUMBER OF PARAMETERS= 


TOTAL HARONESS 


17 


DISSOLVED SOLIDS 


250.049 
249.963 
240.000 
593.090 
514.528 
298.153 
298.153 
335-614 
2599.999 
2698. 885 
332.868 
390.000 
530.000 
186.000 
523.090 
523.000 
401-680 
332-106 
363.612 
2692707 


3504497 


SULFATES 


50.000 
5G.0C0 
50.000 
262.000 
262.006 


74.408 


NITRITE/NITRATEIN) 


0.500 
0.550 
32200 
29.000 
20.479 
5.897 
5.897 
5.897 
104.000 
104.000 
0.513 
0.500 
7.500 
0.430 
5-800 
5.800 
32939 
4.316 
4-316 
1.400 
3.909 


CHLORIDES 


9.300 
92272 
1.300 
9-300 
9.300 


2.575 


2-300 
2.298 
0.030 
1.100 
1.504 
2.120 
2-120 
2-120 
17.000 
17.000 
2.259 
2.300 
0.700 
2.200 
2.540 
5.200 
3.269 
2-240 
22246 
1.500 


2.137 


vOt SUSP SOLIOS 


102.000 
101.623 
102.000 
102.060 
102.000 


11.743 


TOTAL N(KJEHOAHL? 


TOTAL SOLIDS 


290.000 
289.826 
244.000 
663.000 
535.642 
327.130 
327.130 
372.083 
2650.000 
2766.664 
363.604 
440.000 
59€.C00 
200.000 
531.000 
531.000 
411.840 
3702680 
408.486 
295.849 


3572286 


| 


TOTAL PHOSPHATES 


0.630 
0.628 
9.030 
0.030 
92232 


G.584 


Las 
18 
19 
20 


21 


E 


BRANCHS 

BRANCH9 

BRANCHIC 
BRANCH11 
BRANCH12 
BRANCHL3 
BRANCHLS 
BRANCH1S 
BRANCHI16 
BRANCHL7 
BRANCH1LS 
BRANCHLO 
BRANCH20 


BRANCH21 


PARAMETER TNT 


LEMENT 
BRANCHL 
BRANCH2 
BRANCH3 
BRANCH4 
BRANCHS5 
BRANCHS 
BRANCHT 
BRANCHS 
BRANCHI 
BRANCHLO 
PRANCHLL 
BRANCH12 
BRANCH13 
BRANCHLS 
BRANCHLS 


ERANCH1L6 


QDANCKI1P 


36.131 

5.000 
24.7717 
24.727 
4C.CCO 
55.009 
14.000 

8.009 

6.060 
10.16C 
34.1806 
40.481 
20.141 


6.789 


0.0 
C.c0 
0.0 
0.0 
0.0 
0.0 
C0 
0.0 
0.0 
0.0 
0.€ 
0.0 
0.0 


0.0 


185.357 
193.164 
96.000 
35.000 
90.000 
90.C)0 
90.000 
90.000 
144,520 
195.610 
140.363 
187.894 


CALCIUM 


0.0 
0.362 
68.000 
68.000 
68.000 
7.829 
72829 
322128 
20.000 
84.143 
35-558 
0.0 
20.000 
702000 
70.000 
68.006 


69.360 


74.408 
200.600 
20C0.0.06 

60.628 

50.090 

64.005 

38.000 

59.090 

110.000 

64-880 

74.351 

74.351 

68.000 

732464 


ALKALINITY 


70.090 
70.033 
69.2030 
50.000 
-20.092 
52.549 
52.549 
103.173 
-158.118 
-24248T 
84.368 
70.060 
58.CCO0 
62.090 
60.090 
80.000 


672120 


2.575 
32.000 
32.u09 

6.174 

9.300 
24.000 

9.806 

0.0 

9.300 

6.504 

5.202 

5-262 
17.300 

62892 


TURBIDITY 


0.0 
0.0 
0.0 

15.C00 

13.316 
1.533 
1.533 
1.533 
4.060 
4.000 
1.766 
0.0 

76.000 
c.0 

11.100 
0-0 


3-552 


11.143 
12.000 
12.000 
5.686 
102.0006 
55.000 
162.090 
0.0 
102.000 
69.360 
45.355 
45.355 
12.000 
7.341 


ACIDITY 


385.176 
384.077 
81.952 
172.600 
144.383 
227.300 
227.300 
1492444 
190.000 
~-35.470 
207.353 
195.385 
1401.770 
238.089 
93.373 
115.879 


152.673 


ANE Mar rar 


18 
19 


20 


21 


SRANCHIB 
BRANCHL9O 


BRANCH2C 


BRANCH21 


chedve 
41.828 


6.945 


36.956 


se . 


132.376 
93.469 


126.942 


1.012 
0.0 


0.157 


191.744 
135.389 


183.874 


if. 


MASS UUTrUT 


ENFURMALIUN, 


PARAMETER PH 


ELEMENT 

L BRANCH 
2 BRANCH2 
3 BRANCH3 
4 BRANCHS 
5 BRANCHS 
6 BRANCH6 
7 BRANCHT 
8 BRANCHS 
9 PRANCHO 
10 BRANCHLO 
LL BRANCHLL 
12 BRANCH12 
13 BRANCH13 
14 BRANCHLS4 
15 BRANCHLS 
16 BRANCHL6 
17 BRANCHLT 
18 BRANCHL8B 
19 BRANCH19 
20 BRANCH20 


21 BRANCH21 


PARAMETER SUSPENDED SOLIOS 


ELEMENT 

1 BRANCH1 
2 BRANCH2 
3 FRANCH3 
4 BRANCHS 
5 BRANCHS 
6 BRANCHE 


7 BRANCHT 


ADANC Ua 


6.000 
0.0C0 
0.000 
0.0CU 
0.ccc 
0.000 
0.00u 
0.00Cc 
0.000 
0.000 
0.000 
0.C0C 
0.0600 
0.000 
0.c06 
0.000 
0.000 
9.CO0C 
0.0C0 
0.CCc 


@. 000 


96.807 
96.830 
0.161 
4.551 
17.569 
240.391 


240.391 


ana 


Jar, 


PUUNUS FoR UAT 


CONDUCTIVITY 


0.0 
5.145 
49.896 
465.312 
701,603 
701.603 
791.6063 
791.603 
37,654 
37.654 
72.104 

0.0 
1.788 
16.899 
18.326 
18.026 
53.252 
921.442 
921.442 
1203.239 


2124.681 


TOTAL HARONESS 


300.434 
301.943 
12.979 
57.683 
86.976 
993.119 
993.119 


VST 41 


OISSCLVED SOLOS 


834.539 
837.507 
34.610 
380.069 
497.238 
2502.636 
2502.636 
2817.080 
173.534 
180.186 
67.959 
650.941 
2.654 
32143 
7.856 
7.856 
18.856 
4609.785 
5047.094 
607.719 
5654.8613 


SULFATES 


166.908 
167.526 

72210 
167.922 
253.196 
624.566 
624.566 


674.566 


NITRITE/NITRATEIN) 


1.669 
1.842 
©4461 
18.587 
19.791 
49.501 
49.501 
49.501 
64943 
6.943 
0.105 
0.835 
0.038 
0.011 
0.087 
0.087 
0.185 
59.909 
59.999 
3.155 
63.064 


CHLORIDES 


31.045 
31.066 
0.187 
5.961 
8.987 
21.614 
21.614 


21.614 


TOTAL N(KJEHDAHL) 


7.678 
7.706 
0.004% 
0.705 
1.454 
17.794 
17.794 
17.794 
1.135 
1.135 
0.461 
3.839 
0.004 
0.037 
0,038 
0.078 
0.153 
31.090 
31.090 
3.380 


34.470 


VOL SUSP SOLIDS 


340.492 
340.492 
14.709 
65.374 
98.572 
98.572 
98.572 


98.572 


TOTAL SOLIDS 


966.065 
971.071 
35-1867 
386.478 
$17.643 
2745.86) 
2745.861 
3123-195 
176.922 
184-8645 
74.234 
734.395 
2-954 
3.380 
7.977 
7.977 
19,333 
5145.203 
5669.973 
666.623 


5764. 348 


TOTAL PHOSPHATES 


2-103 
2.103 
0.004 
9.019 
0.224 
4.904 
4.904 


4.904 


03137 


9 BRANCH? 
1c SRANCHLO 
11 BRANCHILL 
12 BRANCHI2 
13 SBRANCHLS 
14 BRANCHLS 
15 BRANCHLS 
16 BRANCHL6 
17 BRANCHI7 
18 BRANCHLS 
19 BRANCHLO 
20 BRANCHZ0 


21 BRANCH21 


PARAMETER TNT 


ELEMENT 


cd 


ARANCH1 
2 BRANCH2 
3 BRANCH3 
4 BRANCHS 
5 BRANCHS 
6 BRANCH6 
7 BRANCH? 
8 BRANCHB 
9 BRANCH? 
10 BRANCHLO 
Lt BRANCHIL 

12 BRANCHL2 

13 BRANCHL3 
14 BRANCHLS 

15 RRANCHLS 

16 BRANCHL6 

17 BRANCHL7 


18 BRANCHIB 


0.3454 
1.654% 
5.048 
66,763 
0.275 
0.237 
0.120 
0.120 
0.477 
474.429 
561.891 
45.384 


109.538 


0.0 
0.0 
0.0 
0.0 
0.Cc 
0.C 
0.0 
0.0 
0.0 
0.c 
0.6 
0.0 
0.9 
0.€ 
0.0 
9.0 
0.€ 


0.0 


1.009 
12.375 
21.062 

150.217 
0.175 
1.521 
1. 352 
1.352 
4-225 

2006.007 
2715.154 

316.274 
3631-428 


CALCIUM 


0.0 
1.212 
9.866 
43.583 
65.715 
65.715 
65.715 
269.679 
1.335 
5.618 
7.260 

0.9 
6.150 
1.183 
1.052 
1.021 
34256 


296. 930 


bjse 4a 


133.526 
12.378 
83.454 

0.320 
0.642 
0.751 
1.652 
32946 
1032.926 
1032.026 
153.221 
1185.248 


ALKALINITY 


233.671 
234.648 
92950 
32.046 
19.417 
441.082 
441.082 
866.010 
10.556 
1.635 
17.225 
116.836 
0.290 
1.948 
C.9ul 
1.202 
3-151 


1246.475 


2-136 
1.260 
15.522 
0.120 
0.166 
0.0 
0.140 
0.305 
72.212 
72.212 
38.981 
111.193 
TURBIDITY 


c.0 
0.0 
0.0 
9.614 
12.869 
12.869 
12.869 
12.869 
0.267 
0.267 
0.361 
0.0 
0.381 
0.0 
0.167 
0.0 
0.167 


14.043 


0.801 
1.202 
170.246 
0.275 
1.724 
0.0 
1.532 
3.256 
629.553 
629.553 
27.039 
118.434 


ACIOITY 


1285.777 
1286.861 
11.818 
110.239 
139.531 
1907.914 
1907.914 
1254-405 
6-676 
2.368 
42.334 
326-112 
72019 
4.024 
1.403 
1.741 
Te167 


2933.341 


eis 


~ 


> 


20 BRANCHZU 0.0 L debe civevay Je voure 


21 BRANCH21 0.0 596.239 2049.045 2.533 2966.561 


S439 


PARAMETER MINIMUM FLAG LeVebLd 


PH 099 
CONULUCTIVITY 099 
OISSULVEO SCLIOS «33 
NITRITE/NITRATEIN) 299 
TOTAL NIKJEHDAHL) 299 
TOTAL SOLIOS 299 
SUSPENDED SOLIOS 299 
TOTAL HARONESS 299 
SULFATES 099 
CHLURICES 099 
vot SUSP SOLIDS «99 
TOTAL PHOSPHATES 299 
TNT 099 
CALCIUM 99 
ALKALINITY 099 
TURBIDITY 099 
ACILITY 299 


THE NUMBcR OF FLAGGED POINTS IS 4 


SOURCE 4 » PSAC THE PARAMETER IS NITRITE/NITRATE(N) 
SCURCE 6 » PAPP THE PARAMETER I[S DISSOLVED SOLIOS 
SOURCE 6 » PAPP THE PARAMETER IS NITRITE/NITRATE(N) 
SOURCE © » PSWG THE PARAMETER IS TOTAL PHOSPHATES 


THE NUMBER OF FLAGGED POINTS [S 3 

BRANCH i »« BRANCHL THE PARAMETER IS TOTAL HARDNESS 
BRANCH 1 » BRANCHL THE PARAMETER IS SULFATES 

BRANCH 13 » BRANCHL3 THE PARAMETER IS SUSPENDED SOLIOS 


NB= 22 NS= 16 NP= 17 


SOURCE NUMBER 1 = TS UNIQUELY DETERMINED ON BRANCH 1s WHERE 3 PARAMETERS WERE MEASURED. 
FLOW MODEL 0.400000 MODIFIED TO 0.340000 
DISSOLVED SOLIDS MEASURED 200.000000 CALCULATED 2496599954 
SGURCE CORRECTED TO 200.000000 
ACIDITY MEASURED * 370.000000 CALCULATEO 385.175537 
SOURCE CORRECTED TO 370.000000 
SOURCE NUMBER 2 1S UNIQUELY DETERMINED ON BRANCH 2 WHERE 2 PARAMETERS WERE MEASURED. 
q OTHER SOURCE(S? ALSO CONTRIBUTE YO THIS BRANCH AS INDICATED. 
SOURCE NUMBER 1 FLOW RATE 0.340000 PERCENT CONTRIBUTION 99.707 
a 
FLOW RATE OF SOURCE 2 IS MODIFIED TO 0.001000 A PERCENT CONTRIBUTION OF 0.293 CE4..9 
THER PARAMETERS FOLLOW. 
ACIDITY MEASURED 370.00C6000 CALCULATED 3842077393 
SOURCE CORRECTED TO 3692999756 


jav 


SCURCE NUMBER 3 TS UNIQUELY DETERMINED ON BRANCH 3 WHERE 3 PARAPETERS WERE MEASURED. 


FLOW 400EL 9.917280 MOOIFIED TO 0.020000 
DISSOLVED SOLIDS MEASURED 25C.0CCG0> CALCULATEC 239.999924 
SOURCE CORRECTED TN 250.0900000 
ACIDITY MEASURED 106,.0C0C090 CALCULATED 61.951643 
SOURCE CORRECTED TO 106.000060 
SOURCE NUMBER 2 1S UNIQUELY DETERMINED ON BRANCH 1c WHERE 4 PARAMETERS WERE MEASURED. 
FLOW MODEL 0.008020 MODIFIED TO 0.009090 
DISSOLVED SOLIDS MEASURED 2290.099C99 CALCUL ATEO 2698.886719 
SOURCE CORRECTED TO 2200.000000 
SULFATES MEASURED 2600.000609 CALCULATED 2000.001z21 
SOURCE CORRECTED TO 2000.090900 
ACIOITY MEASURED 60.C0C000 CALCULATED 352469635 
SOURCE CORRECTED TO 60.000000 
SOURCE NUMBER 12 TS UNIQUELY DETERMINED ON BRANCH 12 WHERE 3 PARAMETERS WERE MEASURED. 
FLOW MODEL 0.200000 MODIFIED TO 0.238000 
DISSOLVED SOLIDS MEASURED 370.000000 CALCULATED 390000000 
SOURCE CORRECTED 10 370.9000cC 
ACIDITY MEASURED 180.00000G6 CALCULATED 195. 384598 
SOURCE CORRECTED TO 180.000000 
SOURCE NUMBER 13 TS UNIQUELY DETFRMINED ON BRANCH i3 WHERE 3 PARAMETERS WERE MEASURED. 
FLOW MODEL 0.060600 MODIFIED TO 0.000800 
DISSOLVED SOLIDS MEASURED 570-0CCG09 CALCULATED 5292999756 
SOURCE CORRECTED TO 570.000900 
ACIDITY MEASURED 120C€.CCcG00 CALCULATED 1401.769775 
SOURCE CORRECTED TO 1200-00000 
Cta 
SOURCE NUMBER 15 IS UNIQUELY DETERMINED ON BRANCH 15 WHERE 3 PARAMETERS WERE MEASURED. 
FLOW MODEL Q.CS1820 MOOIFIED TC 0.002300 


Neen wen ensrne MEACIIOEN 259.0NI064 CALCULATED 522.S999756 


~ 


pees 


ACIDITY MEASURED 100.000C0U CALCULATED 93373367 
SOURCE CORRECTED TO 100.000000 
SOURCE NUMBER 8 IS UNIQUELY DETERMINED ON BRANCH 20 WHERE 3 PARAMETERS WERE MEASURED. 
FLOW MODEL 9-2700)0 MODIFIED TO C.3210C0 
DISSOLVED SOLIDS MEASURED 24C.CCOCO0 CALCULATED 269.707631 
SOURCE CORRECTED TO 249.000000 
ACIDITY MEASURED 115.000000 CALCULATED 135.388657 
SOURCE CORRECTED TO 115.C00000 
SOURCE NUMBER 6 IS UNIQUELY DETERMINED ON BRANCHES 6 AND 5 
SOURCE NUMBER 6 FLOW MODIFIED FROM 0.890000 TO 1.040998 
OISSOLVED SOLIDS MODEL 270.000000 CORRECTED TO 250.830811 
SULFATES MODEL 50.000000 CORRECTED TO 63.443832 
acItOlTy MODEL 0.0 CORRECTED TO 210.451614 
FLOW OF SOURCE 4 1S ESTIMATED FROM BRANCH 5 AS 0.045803 
FLOW OF SOURCE 5 IS ESTIMATED FROM BRANCH 5 AS 0.090197 
DISSOLVED SOLIDS OF SOURCE 4 IS ESTIMATED FROM BRANCH 5 AS 321.847900 
OISSOLVED SOLIDS OF SOURCE 5 IS ESTIMATED FROM BRANCH 5 AS 530.155273 
SULFATES OF SOURCE 4 IS ESTIMATED FROM BRANCH 5 AS 250.0C5107 
SULFATES OF SOURCE 5 IS ESTIMATED FROM BRANCH 5 AS 2492999969 
ACIDITY OF SOURCE 4 IS ESTIMATED FROM BRANCH 5 AS 74.800873 
ACIOITY OF SOURCE 5 IS ESTIMATED FROM BRANCH 5 AS 72646317 
0512 
FLOW OF SOURCE 9 IS ESTIMATED FROM BRANCH 11 AS 0.000073 


— Sn 


FLOW OF SOURCE 10 IS ESTIMATED FROM BRANCH ILI AS 0.011445 


FLOW OF SOURCE Ll ITS ESTIMATED FROM BRANCH 11 AS 0.01648) | 
OISSOLVED SOLIDS OF SOURCE 9 IS ESTIMATED FROM BRANCH jit AS 259.562256 
OISSOLVED SOLIDS OF SOURCE 10 IS ESTIMATED FROM BRANCH a AS 2412296906 
OISSOLVED SOLIDS OF SOURCE 11 IS ESTIMATED FROM BRANCH 11 AS 374 .923340 
ACIOITY OF SOURCE 9 ITS ESTIMATEO FROM BRANCH 11 AS 8.198573 
ACIOITY OF SOURCE 10 IS ESTIMATED FROM BRANCH 11 AS 0.0 
acIOlry OF SOURCE 11 IS ESTIMATED FROM BRANCH Il AS 8.198575 

FLOW OF SOURCE 14 IS ESTIMATED FROM BRANCH 17 AS 0.062520 

FLOW OF SOURCE 16 IS ESTIMATED FROM SRANCH 17 AS 0.002240 
DISSOLVED SOLIDS OF SOURCE 14 IS ESTIMATED FROM BRANCH 17 AS 1622069260 
DISSOLVED SOLIDS OF SCURCE 16 IS ESTIMATED FROM BRANCH 17 AS 455 .710693 
ACIDITY OF SOURCE 14 IS ESTIMATED FROM BRANCH 17 AS - 0.0 
ACIDITY OF SOURCE 16 IS ESTIMATED FROM BRANCH 17 AS 0.0 


9 SOURCES HAVE BEEN DETERMINED FROM MEASUREMENTS» THEY ARE; 
1 


2 
3 ‘ 
7 
12 
13 
15 
8 
6 
O74 2 


T SOURCES HAVE BEEN ESTIMATED FROM MEASUREMENTS, THEY ARES 


4 
5 
9 

10 

WW 


16 


THE TOPOLOGY OF THE SITE 
LEVeL 


~ 
OOBNTUNFWNe 


# OF TEST POINTS 


CLO ODONNeE 


TOTAL # OF ITEMS OF EQUIPMENT = 28 


EQ. 


CODE @ 


EQ. NAME 

ExPD SCALE PH MET 
VIS SPECTROPHOT 

PH PREPARATION 

PH MEASUREMENT 
AUTOMATIC BURET 
HEATERS EXTRACT RACK 
CONDUCTIVITY METER 
ANAL BALANCE 

OVEN (105 C) 

OVEN (180 C) 
DESSICATOR 
TECHNICON 

CARBON ANALYZER 
BLENDER 

LAB HOOD 

KJNL DIGEST RACK 
VACUUM SOURCE 
MAGNETIC STIRRER 
NE PHELOME TER (HACH) 
SEPERATORY FUNNELS 
FUNNEL RACK 

MUFFLE FURNACE 

AA SPECTROPHOT 
TECH AUTOANALYZER2 
GAS CHROM WI FIO 
CENTRIFUGE 

HACH TURBIDMETER 
HOTPLATE 


TOTAL TIME AVAIL./TIME PERIOD 
4206.0 
420.0 
420.0 
420.0 

1680.9 
420.0 
420.0 

1680.0 

1441).0 

1680.0 

1440.9 
42029 
420.6 
420.0 

1440.0 
420.0 

1680.0 

1260.0 
420.0 
420.0 

1440.0 
420.0 
420.0 
420.0 
420.9 
420.0 
420.0 
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PARAMETER NAME PH NUMBER OF METHODS alata | FOR ANALYSIS 3 


METHOD 1 NAME  ELECTROMETRIC MINIMUM ACCEPTABLE CONCENTRATION 0.0100 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE 'TIME/SAMPLE MISCELLANEOUS 
{ 
PH PREPARATION 3 3.00 8.00 ! o.0 «cass 1 0.0 COST SAMPLE 
PH MEASUREMENT 4 1.00 3.09 1.00 CLASS 2 5.00 SET UP TIME 
0 0.0 0.0 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 ce ae 0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
j METHOD 2 NAME  ELECTROMETRIC MINIMUM ACCEPTABLE CONCENTRATION 0.0100 
, CODE EQ. TIME AVG. ANALYSTS 
' EOUIPMENT NAME P| PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEOUS 
PH PREPARATION 3 3200 8.09 0.0 CLASS 1 0.0 COST SAMPLE 
PH MEASUREMENT 4 1.00 3.00 0.0 CLASS 2 5.00 SET UP TIME 
0 0.0 0.0 1.00 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
METHOD 3 NAME ELEC TROMETRIC MINIMUM ACCEPTABLE CONCENTRATION 0.0100 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME ‘ PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
PH PREPARATION 3 3.00 8.00 OO CLASS 2. 0.0 COST SAMPLE Sigs 
O03425 
PH MEASUREMENT 4 1.00 3200 0.0 CLASS 2 5.00 SET UP TIME 
0 0.0 0.0 0.0 CLASS 3 1.GO- WHERE ANALYSIS DONE 


pA 


0 0.0 0.0 1.00 CLASS 4 0.0 TIME CONSTRAINT 


PARAMETER NAME CONDUCTIVITY 


METHOD 1 NAME 154 MINIMUM ACCEPTABLE CONCENTRATION 5.0000 
COOE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE 
CONDUCTIVITY METER 7 1.00 6.00 0.0 CLASS 1 
0 0.0 0.0 2.00 CLASS 2 
te} 0.0 0.0 0.0 CLASS 3 
oO 0.0 0.90 0.0 CLASS 4 
METHOD 2 NAME 154 MINIMUM ACCEPTABLE CONCENTRATION 5.0000 
cove EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME € PER SAMPLE VAN SPACE TIME/SAMPLE 
CONOUCTIVITY @ETER 7 1.00 6.00 0.0 cLass l 
0 0.0 0.0 0.0 CLASS 2 
0 0.0 c.0 2.00 CLASS 3 
Le) 0.0 0.0 0.0 CLASS 4 
METHOD 3 NAME 154 MINIMUM ACCEPTABLE CONCENTRATION 5 0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE 
CONDUCTIVITY METER 7 1.00 6.00 9.0 CLASS 1 
0 0.0 0.0 0.0 CLASS 2 
0 0.0 0.0 0.0 CLASS 3 
t?) 0.0 0.0 2.00 CLASS 4 


ee. 


NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 


ae se a me ee ee en a 


MISCELLANEOUS 


0.0 COST SAMPLE 


5290 SET uP TIME 


1.cd WHERE ANALYSIS DONE 


0.0 TIME CONSTRAINT 


MISCELLANEOUS 


0.0 COST SAMPLE 


5-00 SET UP TIME 


1.00 WHERE ANALYSIS OONE 


0.0 TIME CONSTRAINT 


MESCELLANEOUS 


0.0 COST SAMPLE 


ana 
oe re 6) 


5.00 SET UP TIME 


1.00 WHERE ANALYSIS DONE 


0.0 TIME CONSTRAINT 
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PARAMETER NAME OISSOLVED SOLIMS NUMBER OF METHOOS AVAILABLE FOR ANALYSIS 3 


METHOD 1 NAME 1488 (180 C OVEN) MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVG. ANALYSTS 
cQUIPMENT NAME 4 PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.00 5-00 0.0 CLASS IL 0.0 COST SAMPLE 
OVEN (105 C) 9 120.09 6.00 40.00 CLASS 2 20.00 SET UP TIME 
OVEN (160 C) 10 12.00 4.00 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
DESSICATOR ll 240.09 4.00 0.0 CLASS & 24-00 TIME CONSTRAINT 
METHOD 2 NAME 1488 (180 C OVEN) MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVGe ANALYSTS 
EQUIPMENT NAME « PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.09 5-09 0.0 CLASS 1 0.0 COST SAMPLE 
OVEN (105 C) 9 120.00 6.00 0.0 CLASS 2 20.CO SET UP TIME 
DESSICATOR 11 240.00 4.00 40-00 CLASS 3 24.CO WHERE ANALYSIS OONE 
OVEN (180 C) 10 12.00 4.00 0.0 CLASS 4 1.00 TIME CONSTRAINT 
METHOD 3 NAME FILTER RESIOUE 105 C MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.00 5.09 0.0 CLASS 1 0.0 COST SAMPLE Oc17> 
Le jeer 
OVEN (105 C) 9 120.00 6-00 30.00 CLASS 2 20.00 SET UP TIME 
OESSICATOR il 240.00 4.00 0.90 CLASS 3 1.00 WHERE ANALYSIS DONE 
6) 9.0 0.0 0.0 CLASS & 24-00 TIME CONSTRAINT 


eae ee ee a 


PARAMETER NAME NITRITE/NITRATE(N) 


NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 


METHOD L NAME  TECHNICON MINIMUM ACCEPTABLE CONCENTRATION 0.1000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME /SAMPLE MISCELLANEOUS 
TECHN ICON 12 6.00 20.00 0.0 CLASS 1 0.0 COST SAMPLE 
0 0.0 0.0 0.0 CLASS 2 30.00 SET UP TIME 
0 0.0 0.0 7.00 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 2 NAME 133A ODSA MINIMUM ACCEPTABLE CONCENTRATION 0.1000 
coce EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME 6 PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
VIS SPECTROPHOT 2 1.00 10.00 0.0 CLASS 1 0.0 COST SAMPLE 
o 0.0 0.0 0.6 CLASS 2 20.00 SET uP TIME 
t) 0.0 0.0 30.00 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 3 NAME 1334 ODSA MINIMUM ACCEPTABLE CONCENTRATION 0.1000 
COLE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME | PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEOUS 
VIS SPECTROPHOT 2 1.00 10.00 0.0 CLASS 1 0.0 COST SAMPLE 
GSA8 
t) 0.0 0.0 0.0 CLASS 2 20.00 SET UP TIME 
ny 0.0 0.0 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 30.00 CLASS 4 24.00 TIME CONSTRAINT 


a a a a a a =. 


PARAMETER NAME 


TOTAL N(KJEHDAHL) NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 
METHOD 1 NAME TECHNICON MINIMUM ACCEPTABLE CONCENTRATION 0.1000 
CODE EQ. TIME AVGe ANALYSTS 
tQUIPMENT NAME ” PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
TECHNICON 12 6.00 20.00 0.0 CLASS 1 0.0 COST SAMPLE 
ie} 0.0 0.0 0.0 CLASS 2 30.00 SET uP TIME 
0 0.0 0.0 9.00 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 2 NAME 135 ORG N MINIMUM ACCEPTSASCLE CONCENTRATION 0.0500 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
LAB HOCD 15 24-00 22-59 0.0 CLASS 1 0.0 COST SAMPLE 
KJOL DIGEST RACK 16 24.00 0.0 0.0 CLASS 2 60.00 SET UP TIME 
EXPD SCALE PH MET 1 8.00 0.0 8.00 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 3 NAME 135 ORG N MINIMUM ACCEPTABLE CONCENTRATION 0.0500 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
LAB HOCD 15 24.09 22.50 0.0 CLASS 1 0.0 COST SAMPLE 
094.29 
KJOL DIGEST RACK 16 24200 0.0 0.0 CLASS 2 60.00 SET UP TIME 
EXPO SCALE PH MET 1 8.00 0.0 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
0 0.0 0.0 8.00 CLASS 4 24.00 TIME CONSTRAINT 


ee 
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PARAMETER NAME TOTAL SOLIOS NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 
METHOO 1 NAME 224A TR(LOS CI MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
‘ 
4 
ANAL BALANCE 8 15.00 5.00 % 0.0 CLASS 4 0.0 COST SAMPLE 
QVEN (105 C) 9 120.006 6.00 19.00 CLASS 2 10.00 SET UP TIME 
DESSICATOR ll 240.00 4.00 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
ie) 0.0 0.0 G.-0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 2 NAME 148A TR(180 C) MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE €Q. TIME AVG. ANALYSTS 
EQUIPMENT NAME r] PER SAMPLE VAN SPACE TIME /SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.00 5.00 0.0 CLASS 1 0.0 COST SAMPLE 
OVEN (105 C} 9 120.06 6.00 10.00 CLASS 2 10.00 SET UP TIME 
OVEN (180 C) 10 12.00 4.00 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
DESSICATOR 1L 240.00 4.00 0.0 CLASS 4 24-00 TIME CONSTRAINT 
METHOD 3 NAME 148A TRI1B0 C) MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE “MISCELLANEOUS 
ANAL BALANCE 8 15.00 5.00 0.0 CLASS 1 0.0 COST SAMPLE 
C459 
OVEN (105 C) 9 120.00 6.00 0.0 CLASS 2 10.00 SET UP TIME 
OVEN (180 C) 10 12.00 4.00 0.0 CLASS 3 1.06 WHERE ANALYSIS DONE 
DESSICATOR LL 240.005 4.00 10.00 CLASS 4 24.00 TIME CONSTRAINT 


a oe 
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PARAMETER NAME SUSPENDED SOLICS 


METHOD 1 NAME 


ANAL BALANCE 


OVEN (180 CI 


DESSICATOR 


VACUUM SOURCE 


— 


METHOD 2 NAME 


ANAL BALANCE 


OVEN (105 C) 


DESSICATOR 


VACUUM SOURCE 


METHOD 3 NAME 


ANAL BALANCE 


CVEN (105 C) 


DESSICATOR 


NUMBER OF METHOOS AVAILABLE FOR ANALYSIS 3 


148C NFRES(180 C) MINIMUM ACCEPTABLE CONCENTRATION 25.0009 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MI SCELLANEGUS 
8 15.00 5.00 0-0 CLass tl 0.0 COST SAMPLE 
10 12.00 4.00 10.00 CLASS 2 20.00 SET uP TIME 
ll 240.00 4.03 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
17 ‘ 30.00 0.0 0.0 CLASS & 24.00 TIME CONSTRAINT 
224C YSM(1LOS C) MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVGe ANALYSTS 
CQUIPMENT NAME # PER SAMPLE VAN SPACE TIME /SAMPLE MISCELLANEOUS 
8 15.00 5.00 0.0 CLASS 1 0.0 COST SAMPLE 
9 120.00 6.00 40.00 CLASS 2 20.00 SET UP TIME 
ll 240.00 4.00 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
17 30.00 0.0 0.0 CLASS 4 24.00 TEME CONSTRAINT 
224C TSM(105 C) MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE £Q. TIME AVG. ANALYSTS 
tQUIPMENT NAME a PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
8 15.09 5-00 0.0 CLASS 1 0.0 COST SAMPLE 
GA45 
9 120.00 6.00 0.0 CLASS 2 20.00 SEV uP TIME 
ll 240.00 4.090 0.0 CLASS 3 1.00 WHERE ANALYSIS DONE 
17 30.00 0.0 40.00 CLASS 4¢ 24.C0 TIME CONSTRAINT 


VACUUM SOURCE 


-=- ———--— 
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PARAMETER NAME TNT NUMB 
METHOD 1 NAME GAS CHROM 
COOE EQ. TIME 
cCQUIPMENT NAME * PER SAMPLE 
GAS CHROM WI FID 25 1.00 
19) 0.0 
Q 0.0 
i?) 0.0 
METHOD 2 NAME TECHNICON 
CODE EQ. TIME 
EQUIPMENT NAME a" PER SAMPLE 
TECHNICON 12 6.00 
0 0.0 
0 0.0 
0 0.c 


ER OF METHOCS Sealacieicdad Sil ANALYSIS 2 
MINIMUM ACCEPTABLE CONCENTRATION 1.0000 
AVG. ANALYSTS 
VAN SPACE TIME /SAMPLE MISCELLANEOUS 
{ 
0.0 i O50 CLASS 1 0.0 COST SAMPLE 
C.0 0.0 CLASS 2 2.00 SET UP TIME 
0.9 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
0-0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
MINIMUM ACCEPTABLE CONCENTRATION 1.0006 
AVG. ANALYSTS 
VAN SPACE TIME /SAMPLE MISCELLANEOUS 
20.00 0.0 CLASS 1 0.0 COST SAMPLE 
0.0 0.0 CLASS 2 30.00 SE€T UP TIME 
0.0 5.00 CLASS 3 0.0 WHERE ANALYSIS DONE 
0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 


CB452 


PARAMETER NAME TOTAL HARDNESS NUMBER OF METHCOS AVAILABLE FOR ANALYSIS 3 
METHOD 1 ‘AME EDTA MINIMUM ACCEPTASLE CONCENTRATION 0.0 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME r PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
MAGNETIC STIRRER 18 2.49 1.00 0.0 CLASS 1 0.0 COST SAMPLE 
AUTUMATIC BURET 5 2.50 8.00 2.00 CLASS 2 5.00 SET UP TIME 
ty) 0.0 C.6 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
te) : 0.0 0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
METHOD 2 NOME EDTA MINIMUM ACCEPTABLE CONCENTRATION 0.0 
cace EQ. TIME AVG. ANALYSTS 
COULPMENT NAME * PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
MAGNETIC STIRRER 18 2-40 1.00 0.0 CLASS 1 0.0 COST SAMPLE 
AUTOMATIC BURET 5 2259 8.00 0.0 CLASS 2 5.00 SET UP TIME 
0 0.0 C.0 2.00 CLASS 3 0.0 WHERE ANALYSIS OONE 
(0) 0.0 0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
METHOD 3 NAME EDTA MINIMUM ACCEPTABLE CONCENTRATION 0.0 
coce EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEQUS 
MAGNETIC STIRRER 18 2.49 1.00 0.0 CLASS 1 0.0 COST SAMPLE 
09233 
AUTOMATIC BURET 5 2.50 8.00 0.0 CLASS 2 5.00 SET UP TIME 
Ce) 0.0 6.0 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
(a) 0.0 0.0 2.00 CLASS 4 0.0 TIME CONSTRAINT 


en ne 
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PARAMETER NAME SULFATES NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 
METHOD 1 NAME 156C TURB MINIMUM ACCEPTABLE CONCENTRATION 2.0000 
CONE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
NEPHELOMETER(HACH) 19 4.00 6.00 9.0 CLASS 1 0.0 COST SAMPLE 
MAGNETIC STIRRER 18 2240 1.00 4.00 CLASS 2 10.00 SET UP TIME 
ry 0.0 0.0 0.0 CLASS 3 0.0 WHERE ANALYSIS OONE 
t) 0.0 C.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 2 NAME 156C TURB MINIMUM ACCEPTABLE CONCENTRATION 2.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
NEPHELCMETER(HACH? 19 4200 6.00 0.0 CLASS 1 0.0 COST SAMPLE 
MAGNETIC STIRRER 18 2.40 1.00 0.0 CLASS 2 10.60 SET UP TIME 
r) 0.0 0.0 4.00 CLASS 3 0.0 WHERE ANALYSIS DONE 
© 0.0 6.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 3 NAME 156C TURB MINIMUM ACCEPTABLE CONCENTRATION 2.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME “ PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
NEPHELOMETER(HACH) 19 4.90 6.09 0.0 CLASS 1 0.0 COST SAMPLE 
67434 
MAGNETIC STIRRER 18 2.40 1.00 0.0 CLASS 2 10.00 SET uP TIME 
r) 0.0 0.0 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
0 0.0 0.9 4.00 CLASS 4 24.00 TIME CONSTRAINT 


a a a a a 


aa a 
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PARAMETER NAME CHLORIOES NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 


METHOD 1 NAME CHLOR TITR MINIMUM ACCEPTABLE CONCENTRATION 0.0 
CODE EQ. TIME AVG. ANALYSTS 
CQUIPMENT NAME s PER SAMPLE VAN SPACE TIME / SAMPLE MISCELLANEOUS 
AUTUMATIC BURET 5 2-50 8.00 0.0 CLass l 0.0 COST SAMPLE | 
te) 0.0 0.0 2.50 CLASS 2 20.00 SET UP TIME 
0 0.0 3-0 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
f°) 0.0 0.0 0.0 CLASS & 0.0 TIME CONSTRAINT 
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METHOD 2 NAME CHLOR TITR MINIMUM ACCEPTABLE CONCENTRATION 0.0 
COOE EQ. TIME AVG. ANALYSTS 
CQUIPMENT NAME # PER SAMPLE VAN SPACE TIME /SAMPLE MISCELLANEOUS 
AUTOMATIC BURET 5 2-50 8.00 0.0 CLASS 1 0.0 COST SAMPLE 
1) 0.0 0.0 0.0 CLASS 2 20.00 SET UP TIME 
0 0.0 0.0 2.50 CLASS 3 0.0 WHERE ANALYSIS OONE 
0 0.0 0.0 0.0 CLASS ¢ 0.0 TIME CONSTRAINT 
METHOD 3 NAME CHLOR TITR MINIMUM ACCEPTABLE CONCENTRATION 0.0 
CCOE EQ. TIME AVG. ANALYSTS 
cQUIPMENT NAME # PER SAMPLE VAN SPACE TIME /SAMPLE MISCELLANEQUS 
AUTOMATIC BURET 5 2-56 8.00 0.0 CLASS 1 0.0 COST SAMPLE 
GP455 
0 0.0 0.0 0.0 CLASS 2 20.00 SET UP TIME 
oO 0.0 0.0 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
0 0.0 0.0 2250 CLASS 4 0.0 TIME CONSTRAINT 


a 


-------—~--——_ ----—-_ +--+ 


PARAMETER NAME VOL SUSP SOLIDS NUMBER OF METHCOS aVATCASLE| FOR ANALYSIS 3 


METHOD 1 NAME 14680 FIX RES NF MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.00 5.00 $ 6.0 crass 0.0 COST SAMPLE 
OVEN (1605 C} 9 120.00 6.00 20.00 CLASS 2 30.00 SET UP TIME 
DESSICATOR 11 240.00 4.00 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
VACUUM SOURCE 17 30.00 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
METHOD 2 NAME 148D FIX RES NF MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
coce EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME ‘ PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.00 5.09 0.0 CLASS 1 0.0 COST SAMPLE 
OVEN (105 C) 9 120.00 6.00 0.0 CLASS 2 30.00 SET UP TIME 
DESSICATOR 11 240.09 4.00 20.00 CLASS 3 0.0 WHERE ANALYSIS DONE 
VACUUM SOURCE 17 30.00 0-0 0.0 CLASS & 24.00 TIME CONSTRAINT 
METHOD 3 NAME 1480 FIX RES NF MINIMUM ACCEPTABLE CONCENTRATION 25.0000 
coce EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
ANAL BALANCE 8 15.00 5.00 0.0 CLASS 1 0.0 COST SAMPLE 
024.25 
£2... 
OVEN (165 ©) 9 120.99 6.00 9.0 CLASS 2 30.00 SET UP TIME 
DESSICATOR Ll 240.00 4.00 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
VACUUM SOURCE 17 30.00 6.0 20.00 CLASS 4 24.06 TIME CONSTRAINT 
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PARAMETEK NAME TOTAL PHOSPHATES 


NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 


METHOO 1 NAME TECHNICON=SM223C MINIMUM ACCEPTABLE CONCENTRATION 0.2000 
CODE EQ. TIME AVG. ANALYSTS 
CQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
TECH AUTOANALYZER2 24 3.00 5.09 0.0 CLASS 1 0.0 COST SAMPLE 
HOTPLATE 28 2.00 18,00 0.0 CLASS 2 30.00 SET UP TIME 
0 0.0 0.0 3.00 CLASS 3 0.0 WHERE ANALYSIS DONE 
1) 0.0 0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
METHOD 2 NAME TECHNICON-SM223C MINIMUM ACCEPTABLE CONCENTRATION 0.2000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME a PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
TECH AUTOANALYZER2 24 3-00 5-00 0.0 CLASS 1 0.0 COST SAMPLE 
HOTPLATE 28 2.00 16.00 0.0 CLASS 2 30.00 SET UP TIME 
1?) 0.0 0.0 0.0 CLASS 3 0.0 WHERE ANALYSIS OONE 
0 0.0 0.0 3.00 CLASS 4% 0.0 TIME CONSTRAINT 
METHOD 3 NAME SM223-C/E MINIMUM ACCEPTABLE CONCENTRATION 0.3000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME 4 PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
VIS SPECTROPHOT 2 1.06 10.00 0.0 CLASS 1 0.0 COST SAMPLE 
OS327 
HOTPLATE 28 2.00 18.00 0.0 CLASS 2 20.00 SET UP TIME 
ie) 0.0 0.0 8.00 CLASS 3 0.0 WHERE ANALYSIS DONE 
0 0.0 0.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
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PARAMETER NAME CALCIUM 


METHOD 1 NAME 


EQUIPMENT NAME 


AUTOMATIC BURET 


MAGNETIC STIRRER 


—--—---------- 


METHOD 2 NAME 


cQUIPMENT NAME 


AA SPECTROPHOT 


—-—--— —~ - - - + - -- - - - —— 


ATOMIC ABSORB 


110C EDTA TITR 


NUMBER CF METHCDS AVAILABLE FOR ANALYSIS 2 
MINIMUM ACCEPTABLE CONCENTRATION 0.1000 
cCOoce EQ. TIME AVG. ANALYSTS 
# PER SAMPLE VAN SPACE TIME/SAMPLE 
5 2.50 8.00 0.0 CLASS I 
18 2240 1.00 c.0 CLASS 2 
.°) 0.0 c.0 4.00 CLASS 3 
0 0.0 0.0 0.0 CLASS 4 
MINIMUM ACCEPTABLE CONCENTRATION 0.1000 
COCE EQe TIME AVG. ANALYSTS 
4 PER SAMPLE VAN SPACE TIME/SAMPLE 
23 1.00 24.09 2.00 CLASS I 
oO 0.0 0.0 3-00 CLASS 2 
0 0.0 0.0 0.0 CLASS 3 
0 0.0 0.0 0.0 CLASS 4 


——— 


MISCELLANEOUS 


0.0 COST SAMPLE 

10.006 SET UP TIME 

0.0 WHERE ANALYSIS DONE 
0.0 TIME CONSTRAINT 

MISCELLANEOUS 

0.0 COST SAMPLE 

0.0 SET UP TIME 

0.0 WHERE ANALYSIS DONE 
0.0 TIME CONSTRAINT 
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PARAMETER NAME ALKALINITY NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 


METHOD 1 NAME ALK TITR MINIMUM ACCEPTABLE CONCENTRATION 1.0000 
CODE EQ. TIME AVG. ANALYSTS. 
cCQUIPMENT NAME # PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
EXPD SCALE PH MET 1 8.00 2200 0.0 CLASS 1 0.0 COST SAMPLE 
PH PREPARATION 3 3.00 8.C0 5.00 CLASS 2 5.0C SET UP TIME 
0 0.0 0.0 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
rr 0.0 0.0 O50 CLASS & 0.0 TIME CONSTRAINT 
4 METHOD 2 NAME ALK TITR MINIMUM ACCEPTABLE CONCENTRATION 1.0060 
} CODE £Q. TIME AVG. ANALYSTS 
EQUIPMENT NAME ’ PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
EXPD SCALE PH MET 1 8.00 2-00 0.7 CLASS 1 0.0 COST SAMPLE 
PH PREPARATION 3 3.0C 8.00 0.0 CLASS 2 5.00 SET UP TIME 
c 0.0 0.0 5.00 CLASS 3 0.0 WHERE ANALYSIS DONE 
0 0.0 C.0 0.0 CLASS 4 0.0 TIME CONSTRAINT 
METHOD 3 NAPE ALK TITR MINIMUM ACCEPTABLE CONCENTRATION 1.0000 
CODE EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME r) PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
EXPO SCALE PH MET 1 8.09 2.00 0.0 CLASS 1 0.0 COST SAMPLE 
= <- 
OS459 
PH PREPARATION 3 3.00 8.00 0.0 CLASS 2 5.00 SET UP TIME 
(a) 0.0 0.0 6.0 CLASS 3 0.0 WHERE ANALYSIS DONE 


0 G.0 0.Cc 5.9C CLASS 4 0.0 TIME CONSTRAINT 


ee 


PARAMETER NAME 


METHOD 1 NAME 


EQUIPMENT NAME 


HACH TURBIOMETER 


METHOD 2 NAME 


EQUIPMENT NAME 


HACH TURBIOMETER 


METHOD 3 NAME 


cQUIPMENT NAME 


HACH TURBIDMETER 


a 


TURBIDITY 


HACH TURBIDMETER 


COCE 
# 


27 


HACH TURBIDMETER 


CODE 
# 


27 


HACH TURBIOMETER 


CODE 
# 


27 


NUMBER OF METHODS AVAILABLE FOR ANALYSIS 3 


MINIMUM ACCEPTABLE CONCENTRATION 2.0000 
EQ. TIME AVG. ANALYSTS 
PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEOUS 
2200 4.00 0.0 CLASS 1L 0.0 COST SAMPLE 
0.0 0.0 2.060 CLASS 2 25.00 SET uP TIME 
0.0 c.0 0.0 CLASS 3 0.0 WHERE ANALYSIS DONE 
0.0 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
MINIMUM ACCEPTABLE CONCENTRATION 2.0000 
EQ. TIME AVG. ANALYSTS 
PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEGUS 
2.00 4.05 0.0 CLASS 1 0.0 COST SAMPLE 
0.0 6.0 0.0 CLASS 2 25.C0 SET UP TIME 
0.0 0.0 2.00 CLASS 3 0.0 WHERE ANALYSIS OONE 
0.0 0.0 0.0 CLASS 4 24.00 TIME CONSTRAINT 
MINIMUM ACCEPTABLE CONCENTRATION 2.0090 
EQ. TIME AVG. ANALYSTS 
PER SAMPLE VAN SPACE TIME /SAMPLE MISCELLANEOUS 
2206 4.0v0 0.0 CLASS 1 0.0 COST SAMPLE 
6°2.40 
6.0 C.0 0.0 CLASS 2 25.00 SET UP TIME 
c.0 0.0 0.0 CLASS 3 0.0 WHERE ANALYSIS OONE 
0.0 0.9 2.0% CLASS 4¢ 24.00 TIME CONSTRAINT 


—~-— 


—-— + - - awn ee 


PARAMETER NAME ACIOITY NUMBER CF METHOOS AVAILABLE FOR ANALYSIS 3 
METHOD 1 VAME SM 201 MINIMUM ACCEPTABLE CONCENTRATION 1.0000 
EQ. TIME AVG. ANALYSTS 
cQUIPMENT NAME PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEGUS 
EXPD SCALE PH MET 4.00 0.0 CLASS lL 0.0 COST SAMPLE 
PH PREPARATION 8.00 7200 CLASS 2 SET UP TIME 


C.0 0-9 CLASS 3 WHERE ANALYSIS DONE 


0.0 CLASS 4 TIME CONSTRAINT 


ooo 


METHOD 2 NAME SM 201 MINIMUM ACCEPTABLE CONCENTRATION 
EQ. TIME AVG. ANALYSTS 
EQUIPMENT NAME PER SAMPLE VAN SPACE TIME/SAMPLE MISCELLANEOUS 
EXPL SCALE PH MET 3.00 4.00 0.0 CLASS 1 0.0 COST SAMPLE 
PH PREPARATION 3.09 8.00 6.0 CLASS 2 SET uP TIME 


0.0 0.0 7-00 CLASS 3 WHERE ANALYSIS DONE 


0.0 0.0 0.0 CLASS 4 TIME CONSTRAINT 


a a a a 


METHOO 3 NAME SM 201 MINIMUM ACCEPTABLE CONCENTRATION 1.0000 


EQ. TIME AVGe ANALYSTS 
ECUIPMENT NAME PER SAMPLE VAN SPACE TIME/ SAMPLE MISCELLANEOUS 


EXPD SCALE PH MET 3.00 4.00 0.0 CLASS 1 COST SAMPLE 


Ph PREPARATION 8.00 CLASS 2 SET UP TIME 


CLASS 3 WHERE ANALYSIS DONE 


CLASS 4 TIME CONSTRAINT 


——-+-——- -- + - 


ns aaeallieaiaeh tha, 


CONSTRAINTS ON AVAILABLE RESOURCES (EXCLUDING EQUIPYENT TIME CONSTRAINTS) 


TOTAL 
TOTAL 
TOTAL 
TOTAL 
TOTAL 


TOTAL 


VAN SPACE 

ANALYSTS TIME 
ANALYSTS TIME 
ANALYSTS TIME 
ANALYSTS TIME 


cast 


(CLASS 1) 
(CLASS 2) 
(CLASS 3) 


(CLASS 4) 


$ 


CONSTRAINT 
10095.000 


840.000 
840.C00 
1260.000 
420.000 


100.00 


093.42 


VIULAILUN WUMtbeR £ AAD ULUKKEU FUR PARAMS 


PARAMETER UNDER CONSIDERATION= 2¢ PREVIOUS 


PARAMETER UNDER CONSIOERATIO N= Le PREVIOUS 


AN EQUIPMENT VIOLATION OCCURRED FOR OVEN (105 C) 
FOR PARAMETER DISSOLVED SOLIOS « VIOLATION NOTED, 


AN EQUIPMENT VIOLATION OCCURRED FOR OVEN (105 C3 
FOR PARAMETER TOTAL SOLIDS « VIOLATION NOTEO, 


2 


ASSIGNMENT WAS AT LEVEL 1 BY METHOD 2 


ASSIGNMENT WAS AT LEVEL 1 BY METHOD 2 


WHILE METHOD AND LEVEL ASSIGNMENTS WERE BEING CONSICERED 
ASSIGNMENTS CONTINUING. 


WHILE METHOD AND LEVEL ASSIGNMENTS WERE BEING CONSIDERED 
ASSIGNMENTS CONTINUING. 


1 ec 


VIOLATION NUMBER | HAS Ucunncue 


PARAMETER UNDER CONSIDERATION= PREVIOUS ASSIGNMENT LEVEL METHOD 


PARAMETER UNDER CONSICERATION= Se PREVIOUS ASSIGNMENT WAS LEVEL BY METHOD 


PARAMETER UNDER CONSIDERATION= 4. PREVIOUS ASSIGNMENT WAS AT LEVEL BY METHOD 


PARAMETER UNDER CONSIDERATION= 3-4 PREVIOUS ASSIGNMENT WAS AT LEVEL BY METHOD 


PARAMETER UNDER CONSICERATION= 2. PREVIOUS ASSIGNMENT WAS AT LEVEL BY METHOD 


PARAMETER UNDER CONSIDERATION= le PREVIOUS ASSIGNMENT WAS AT LEVEL BY METHOD 


AN EQUIPMENT VIOLATION OCCURRED FOR DESSICATOR WHILE METHOD ANO LEVEL ASSIGNMENTS WERE BEING CONSIDERED 
FOR PARAMETER SUSPENDED SOLIDS e VIOLATION NOTED, ASSIGNMENTS CONTINUING. 


. 
i 


VIOLATION NUMBER L HAS OCCURRED FOR 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


PARAMETER 


UNDER 


UNDER 


UNDER 


UNDER 


UNCER 


UNDER 


UNDER 


UNDER 


UNDER 


UNOER 


CONSIDERATIONe 


CONSIDERATION= 


CONSIDERATION= 


CONS IDERATINN= 


CONSICERATION= 


CONSIDERATION= 


CONSIDERATION= 


CONSICERATION= 


CONSIDERATION= 


CONSIOERATION= 


PARAMcitX ILL 


10. 


9. 


Te 


66 


Se 


4 


3e 


2. 


1. 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


PREVIOUS 


AN EQUIPMENT VIOLATION OCCURRED FOR OVEN (105 C) 
FOR PARAMETER VOL SUSP SOLIDS e VIOLATION NOTED, 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


ASSIGNMENT WAS 


WHILE METHOD AND LEVEL 


AT 


AT 


AT 


AT 


AT 


AT 


AT 


AT 


AT 


AT 


LEVEL 


cEVEL 


LEVEL 


LEVEL 


LEVEL 


LEVEL 


LEVEL 


LEVEL 


LEVEL 


ASSIGNMENTS CONTINUING. 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


BY 


METHOO 


METHOD 


METHOD 


METHCO 


METHOD 


METHOD 


METHCD 


METHOD 


METHOD 


METHOD 


ASSIGNMENTS WERE BEING CONSIDERED 


IRR eA IE te 


Te) 


G33 fd 


$M 


VIOULATIUN NUMBEK & HAD LULLURKLU FUR Panercica a 


PARAMETER UNDER CONSIDERATIUON=13. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 68Y METHOD 1 


PARAMETER UNDER CONSIDERATIUN=12. PREVIQUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATION=11. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATION=10~. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 3 


PARAMETER UNDER CONSIOERATION= 9. PREVICUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 3 


PARAMETER UNDER CONSIDERATION= 8. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 3 


PARAMETER UNDER CONSIDERATION= 7. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATIGN= 6. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATION= 5.2 PREVIOUS ASSIGNMENT WAS AT LEVEL 1 6Y METHOD 1 


PARAMETER UNDER CONSICERATION= 4. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIOERATION= 3. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATION= 2. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 2 


PARAMETER UNDER CONSIDERATION= 1. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 2 


A VIOLATION ON ANALYSTS TIME CLASSIFICATION 3 OCCURED WHILE METHOO AND LEVEL ASSIGNMENTS WERE BEING CONSIDERED 
FOR PARAMETER CALCIUM « VIOLATION NOTED, ASSIGNMENTS CONTINUING. 


VIOLATION NUMBER & HAS OCCURRED FUR PAKAMritK 19 
PARAMETER UNDER CONSIDERATION=14,. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 
PARAMETER UNDER CONSIOERATIUN=13. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 6Y METHCO i 
PARAMETER UNDER CONSICERATION=12. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 
PARAMETER UNDER CONSIDERATION=11. PREVIOUS ASSIGNMENT WAS AT .EVEL 1 BY METHOD 1 


¥ PARAMETER UNDER CONSIOERATIGN=L0. PREVIGUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 3 


PARAMETER UNDER CONSICERATION= 96 PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 3 


PARAMETER UNDER CONSIDERATION= 8. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 3 


PARAMETER UNDER CONSIDERATION= 7. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSICERATION= 66 PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATION= 5. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOO L 


PARAMETER UNDER CONSIDERATION= 4. PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSICERATION= 36 PREVIOUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 1 


PARAMETER UNDER CONSIDERATION= 2. PREVIGUS ASSIGNMENT WAS AT LEVEL 1 BY METHOD 2 


PARAMETER UNDER CONSIDERATION= Le PREVIOUS ASSIGNMENT WAS AT LEVEL IL BY METHOO 2 


A VIOLATION ON ANALYSTS TIME CLASSIFICATION 2 OCCURED WHILE METHOD AND LEVEL ASSIGNMENTS WERE BEING CONSIDERED 
FOR PARAMETER ALKALINITY « VIOLATION NOTED, ASSIGNMENTS CONTINUING. 


A VIOLATION ON ANALYSTS TIME CLASSIFICATION 2 OCCURED WHILE METHOD AND LEVEL ASSIGNMENTS WERE BEING CONSIDERED 
FOR PARAMETER TURBIDITY « VIOLATION NOTED», ASSIGNMENTS CONTINUING. 


O44. 77 
FOR PARAMETER ACIDITY » VIOLATION NOTED, ASSIGNMENTS CONTINUING. aa 


i 
€ 


PARAMCTERS PMEASUKEU 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


BRAWCH BRANCHL 


BRANCH BRANCH2 


BRANCH BRANCH3 


BRANCH SRKANCHS 


BRANCH BRANCHS 


BRANCH BRANCH6 


BRANCH BRANCHT 


BRANCH BRANCH8 


SRANCH BRANCH9 


Al 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


CAL BRANCH 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NG MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


OISSOLVED SOLIOS 
NITRITE/NITRATE(N) 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE? 


arm wcacrocuca re MAN 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


FOR 


BRANCH 


SRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCH 


BRANCHILO 


BRANCH11 


BRANCH12 


BRANCHL3 


BRANCH1L4 


BRANCHL5 


BRANCHL6 


BRANCHL7T 


BRANCH18 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


THE 


PARAMETERS MEASURED ARE? 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NG MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


PARAMETERS MEASURED ARE: 


NO MEASUREMENTS MADE 


SUSPENDED SOLICS 


Pate 


NO MEASUREMENTS MADE 


FOR BRANCH BRANCH20 THE PARAMETERS MEASURED ARE: 


FOR BRANCH BRANCH21 THE PARAMETERS MEASURED ARE: 


TOTAL PHOSPHATES 


PH 

CONDUCTIVITY 
DISSOLVED SOLIDS 
NITRITE/NITRATECND 
TOTAL N(KJEHDAHL) 
TOTAL SOLIOS 
SUSPENDED SOLIDS 
TOTAL HARDNESS 
SULFATES 
CHLORIDES 

VOL SUSP SOLIOS 
TOTAL PHOSPHATES 
CALCIUM 
ALKALINITY 
TURBIDITY 

ACIDITY 


«J 


LN Magura 


ed 


SAMPLING LNFURMALLUN 


SAMPLING TECHNIQUE SAMPLE TIME SET UP TIME 
EASY GRAB 5.0 5.9 
HARD GRAB 15.0 5.9 
Isco 20.9 5.0 
PROTECH 5.9 5.0 


AT BRANCH 1 » BRANCHL NO SAMPLES WERE TAKEN 
AT BRANCH 2 » BRANCH2 NO SAMPLES WERE TAKEN 
AT BRANCH 3 » BRANCH3 NO SAMPLES WERE TAKEN 
AT BRANCH 4 » BRANCH4&4 NO SAMPLES WERE TAKEN 
AT BRANCH 5 5 BRANCHS NO SAMPLES WERE TAKEN 
AT BRANCH 6 ¢» BRANCH6 25.00 SAMPLES WERE TAKEN USING ISCO TAKING 525200 MINUTES 
AT BRANCH 7 » BRANCHT NO SAMPLES WERE TAKEN 
AT BRANCH 8 » BRANCH8 NO SAMPLES WERE TAKEN 
AT BRANCH 9 » BRANCHI NO SAMPLES WERE TAKEN 
AT BRANCH 10 ¢ BRANCH1O NO SAMPLES WERE TAKEN 
AT BRANCH 11 4 BRANCHLI NO SAMPLES WERE TAKEN 
AT BRANCH 12 » BRANCHL2 NO SAMPLES WERE TAKEN 
AT BRANCH 13 » BRANCHL3 5.00 SAMPLES WERE TAKEN USING ISCO TAKING 125.00 MINUTES 
AT BRANCH 14 » BRANCHL4S NO SAMPLES WERE TAKEN 
AT BRANCH 15 » BRANCHLS NO SAMPLES WERE TAKEN 
AT BRANCH 16 » BRANCHL6 NO SAMPLES WERE TAKEN 
AT BRANCH 17 » BRANCHI7 NO SAMPLES WERE TAKEN 
AT BRANCH 18 » BRANCHI8 NO SAMPLES WERE TAKEN 
AT BRANCH 15 » SRANCHL9 NO SAMPLES WERE TAKEN 
AT BRANCH 20 » BRANCH20 20.00 SAMPLES WERE TAKEN USING EASY GRAB TAKING 125.00 MINUTES 


AT BRANCH 21 » BRANCH21 60.00 SAMPLES WERE TAKEN USING EASY GRAB TAKING 325.00 MINUTES 


FLOW MEASUREMENT INFURMATIUON 
STEVENS RECCROER C.0 20.9 


GURLEY METER 9-0 30.0 


NO FLOW MEASUREMENTS WERE MADE AT BRANCH 1 SRANCH1 


NO FLOW MEASUREMENTS WERE MADE AT BRANCH 2. BRANCH2 


NO FLOW MEASUREMENTS WERE MADE AT BRANCH 3. BRANCH3 


FLOW WAS MEASURED AT BRANCH 4 » BRANCHS USING THE STEVENS RECORDER TAKING 100.00 MINUTES 
NO FLOW MEASUREMENTS WERE MADE AT BRANCH 5 BRANCHS 

FLOW WAS MEASURED AT BRANCH 6 » BRANCH6 USING THE STEVENS RECORDER TAKING 100.00 MINUTES 
NO FLOW MEASUREMENTS WERE MADE AT BRANCH 7 BRANCHT 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 8 BRANCHS 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 9 BRANCH9 

FLOW WAS MEASURED AT BRANCH 1O » BRANCHLO USING THE STEVENS RECORDER TAKING 100.00 MINUTES 
NO FLOW MEASUREMENTS WERE MADE AT BRANCH LL BRANCHIL 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 12 BRANCH12 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 13. BRANCHL3 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 14 BRANCHL4 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 15 BRANCHLS 

FLOW WAS MEASURED AT BRANCH 16 » BRANCH16 USING THE STEVENS RECORDER TAKING 100.00 MINUTES 
NO FLOW MEASUREMENTS WERE MADE AT BRANCH 17 BRANCHLT 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 18 BRANCH18 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 19 BRANCHLO 

NO FLOW MEASUREMENTS WERE MADE AT BRANCH 20 BRANCH20 


NO FLOW MEASUREMENTS WERE MADE AT BRANCH 21 BRANCH21 


PARAMETER 
PH 


METHOO 
ELEC TROMETRIC 


TOTAL SAMPLE NUMBFR EXPECTED 


60.0 SAMPLES 


TOTAL RESOURCES ASSIGNEO 
ITEMS 
1 PH PREPARATION 
2 PH MEASUREMENT 


ANALYST 
CLASSIFICATION 1 
CLASSIFICATION 2 
CLASSIFICATION 3 
CLASSIFICATION 4 


a we 


PARAMETER 
f CONDUCTIVITY 


60.9 SAMPLES 


JOTAL_8ESOURCES_ASSIGNED 


ITEMS 
1 CONDUCTIVITY METER 


ANALYST 
CLASSIFICATION 1 
CLASSIFICATION 2 
CLASSIFICATION 3 
CLASSIFICATION 4 


Orao 


METHOD 
154 


TOTAL SAMPLE NUMBER EXPECTED 


ONO 


TIMES 
HRS» O MINS. 
HRS. O FINS. 
HRS» © MINS. 
HRS. 25 BINS. 
HRSe 25 MINS. 
HRS. O MINS. 

TIMES 
HRS © MINS. 
HRS. O MINS. 
HRSe 25 MINS.» 
HRSe 25 MINS. 
HRS. O FINS. 


JINTs_ SRANCH_ NOes EXPECTED VALUE 
j Zl 


72090 


HAS_CONSTRAINI VIOLATED 


NO 
NO 


YES 
YES 
YES 
NO 


a ee 


MEASUBE_PCINTs BRANCH NO es EXPECTED VALUE 
{ ds 1) 21 131.692 


HAS CONSTRAINT VIOLATED 
NO 


YES 
YES 
YES 
NO 


=_ 
‘ 
‘<* 
ur 
w 


ME THON 


pase ee eS 


148B (180 
14838 (180 
RP EXPECTED 
SAMPLES 


TOTAL 


SAMPLE 1 


50.¢ 


ma 


IOTAL RESOURCES _ ASSIGNED 
ITEMS 
i) NAL BALANCE 
2 OVEN tt05:. C) 
3 OVEN (180 C) 
4 DESSICATOR 


ANALYST 
CLASSIFICATION 1 
CLASSIFICATION 2 
CLASSIFICATION 3 
CLASSIFICATION 4 


a a ee = 


PARAMETER 
NITRITE/NEITRATE(N) 


METHOO 
TECHNICCN 
TECHNICGN 
TOTAL SAMPLE NUMPER EXPECTED 

40.9 SAMPLES 


IQTAL_RESCUSCES_ASSICNED 
ITEMS 
1 TECHNICON 


ANALYST 
CLASSIFICATION 1 
CLASSIFICATION 2 
CLASSIFICATION 3 
CLASSIFICATION 4 


MEASURE POINT. BRAC NOas_EAXPECTED VALUE 


C OVEN) i is 1} 21 3504497 
C CVEN) * ( 6, 7) 6 296.153 
BAS_CONSIBALNI VIOLATED 
TIMES 
12 HRS. 30 MINS. NO 
1GC HRS. © MINS. ves 
10 HRS. 0 MINS. NO 
2CC HRS. O MINS» YES 
O HRSe O MINSe YES 
35 HRS. OC MINS. YES 
O HRS- 0 MINS» YES 
© HRS. © MINS. NO 
MEASURE POINT s BRANCH NOos EXPECTED VALUE 
(ly 1) 21 329C9 
" tbs 75 6 5.897 
WAS _CONSIRAINI_ VIOLATED 
TIMES 
4 HRS. 0 MINS. NO 
O HRS. O MINSe YES 
C HRSe © MINSe YES 
T HRS.» 10 MINS. YES 
O HRSs 0 MINS. NO 


PARAMETER METHOD MEASURE POINT: BRANCH NOss EXPECTED VALUE 
TOTAL N(KJFHDAHL) TECHNICON f ody “h? 21 2-137 
TOTAL SAMPLE NUMBER EXPECTED 
20.) SAMPLES 
TOTAL RESOURCES ASSIGNED WAS_CONSIBAINI_YIOLAIED 
ITEMS TIMES 
1 TECHNICON 2 HRSe O MINS. NO 
ANALYST 
CLASSIFICATIUN 1 O HRS. O MINS. YES 
CLASSIFICATION 2 G HRS. O MINSe YES 
CLASSIFICATION 3 5 HRSe 30 MINSe ves 
; CLASSIFICATION 4 O HRS. O MINS. NO 
wspRicnepheptc tat OO Re ge ne a eA ee ee aie ee aL: ee ee ee SOE ee Ae Se ee ge en eee 
PARAMETER METHOD MEASURE POINIs BRANCH NOs» EXPECTED VALUE 
TOTAL SOLIDS 224A TRILO5 C) de 2 21 357.286 
, TOTAL SAMPLE NUMBFR EXPECTED 
5 5.0 SAMPLES 
al TOTAL RESOURCES ASSIGNED WAS_CONSIBAINI_VIOLATED 
ITEMS TIMES 
l ANAL BALANCE 1 HRS. 15 MINS. NO 
2 OVEN (105 C) 10 HRS, O MINS. YES: 
3 DESSICATOR 20 URS. O MINS. YES 
ANALYST 
CLASSIFICATION 1 O HRS. O MINS. YES 
CLASSIFICATION 2 1 HRS. 40 MINS. YES 
CLASSIFICATION 3 QO HRS. O MINS. VES 
CLASSIFICATION 4 O HRS. O MINS. NO 


ns el ea 


PS2AMETER METHOO MEASURE POINT: BRANCH NOos EXPECTED VALUE 
SUSPENDED SOLIOS 143C NFRES(L8O C) a 21 6.789 
148C NFRES(1AO C) JU ee | 13 552000 
TOTAL SAMPLE NUMPFR EXPECTED 
10.0 SAMPLES 
IOTAL 2£S0uecr$_ ASSIGNED WAS_CONSIZAINI_VIOLATED 
ITEMS TIMES 
1 ANAL BALANC 2 HRS» 30 MINS. NO 
2 OVEN (180 ¢) 2 HRS-» O MINS. NO 
3 OESSICATOR 49 HRS. O MINS. YES 
% JM SOURCE 5 HRS. O MINS. NO 
ANALYST 
CLASSIFICATION 1 O HRS. O MINS. YES 
CLASSIFICATION 2 3 HRSe 20 MINS. YES 
CLASSIFICATION 3 C HRS.» O MINS. YES 
CLASSIFICATION 4 O HRS» O MINS. NO 
« SRAMETER METHOD caesar a Tamale te NOss EXPECTED VALUE 
TOTAL HARDNESS EOTA e dy 2) 187.894 


TOTAL SAMPLE NUMBER EXPECTED 
36.% SAMPLES 


TOTAL RESOURCES ASSIGNED WAS CONSTRAINI_ VIOLATED 
ITEMS TIMES 
1 MAGNETIC STIRRER 1 HRSe IL MINS. NO 
2 AUTOMATIC BURET 2 HRSe 25 MINS. NO 
ANALYST 
CLASSIFICATION 1 GC HRS. O MINS. YES 
CLASSIFICATION 2 O HRSe 25 MINS. YES 
CLASSIFICATION 3 O HRS. O MINS. YES 
CLASSIFICATION 4 1 HRS. 25 MINS. NO 


PASAMETER METHOD 
SULFATES 156C TURB 
TOTAL SAMPLE NUMA=R EXPECTED 
29.C SAMPLES 


CS_-ASSIGNED 


MEASURBE_POINTs,._ BRANCH NOss EXPECTED VALUE 


( ls 1) 21 734464 


HAS_CONSIRAINI VIOLATED 


¢ TIMES 


1 NEPHELOMETER(HACH) L HRS. 20 MINS. NO 
2 MAGNETIC STIRRER O HRSe 47 MINS. NO 
ANALYST 
CLASSIFICATION 2 O HRS. O MINS. YES 
CLASSIFICATION 2 O HRS. 50 MINS. YES 
CLASSIFICATION 3 O HRS. O MINS. YES 
CLASSIFICATION 4 2 HRSe 10 MINS. NO 
PARAMETER METHOD MEASURE POINT, BRANCH NOes. EXPECTED VALUE 
CHLORIDES CHLOR TITR (Ts, 2) “2 6.892 
TOTAL SAMPLE NUMBER EXPECTED 
20.C SAMPLES 
IOQTAL_RESIURCES ASSIGNED WAS CONSTRAINT VIOLATED 
ITEMS ; TIMES 
1 AUTOMATIC BURET C HRSe 50 MINS. NO 
ANALYST 
CLASSIFICATION 1 C HRS. O MINS. Yes 
CLASSIFICATION 2 1 HRSe 40 MINS NES 
CLASSIFICATION 3 O HRS. O MINS. YES 
CLASSIFICATION 4 2 HRSe- 30 MINS. NO 


— — — | ——" —P~ =, —— 


C157 


“I 


RAMETER SURE POINT s_ D_VAL 
vot Suse SOLIOS 1480 FIX RES NF ‘es rae 2) 7,34) 
TOTAL SAMPLE NUMATR EXPECTED 
20.0 SAMPLES 
TOTAL RESOURCES ASSIGNED <sak bAS _CONSIRZALNI_VICLATED 
ITEMS IMES 
1 ANAL BALANCE 5 HRS. O MINS. NO 
2 OVEN 1105 C) 40 HRS. O MINS. YES 
3 OESSICATOR BO HRS. O MINS. YES 
4 VACUUM SOURCE 10 HRS. O MINS. NO 
ANALYST 
CLASSIFICATION 1 O HRS. O MINS. YES 
CLASSIFICATION 2 9 HRS. ILC MINS. YES 
CLASSIFICATION 3 OQ HRS. QO MINS. YES 
CLASSIFICATION 4 O HRS. O MINS. NO 
PARAMETER METHOD MEASURE POINT. BRANCH NOs EXPECTED VALUE 
TOTAL PHOSPHATES TECHNICON=SM223C ( de 1) 2l 0.653 
TECHNICON=S¥223C Se Avge Ad 20 1.000 
TOTAL SAMPLE NUMBFR EXPECTED 
40.0 SAMPLES 
IOIAL_&8ESOUSCES ASSIGNED HAS _CONSTSA INT VIOLATED 
ITEMS TIMES 
1 TECH AUTOANALYZER2 2 HRS. O MINS. NG 
2 HOTPLATE 1 HRS. 20 MINS. NO 
ANALYST 
CLASSIFICATION 1 O HRS. O MINS. YES 
CLASSIFICATION 2 O HRS. O MINS. YES 
CLASSIFICATION 3 4 HRS. 30 MINS. YES 
CLASSIFICATION 4 O HRS. O MINS. NO 


PARAMETER 
TNT 


a ee 


PARAMETER 
CALCIUM 


TOTAL SAMPLE NUMBER EXPECTED 
0.0 SAMPLES 


IOQTAL RESOURCES _ASSIGNED 


METHOD MEASUSE_POINIs BRANCH NOs2 EXPECTED VALUE 


BAS_CONSIZAINI_ VIOLATED 


ITEMS TIMES 
1 GAS CHROM WI FID O HRS» 0 MINS. NO 
ANALYST 
CLASSIFICATION 1 O HRS» O MiNSe YES 
CLASSIFICATION 2 C HRS. O MINS. YES 
CLASSIFICATION 3 O HRS. O MINS. YES 
CLASSIFICATION 4 O HRSe O MINS. NO 
METHOD MEASURE POINT, BRANCH NOos EXPECTED VALUE 
110C EDTA TITR (ls 2) 21 36.956 
TOTAL SAMPLE NUMBER EXPECTED 
20.0 SAMPLES 
TOTAL-S£S0uaCES_ ASSIGNED WAS CONSTRAINT VidtaTeD 
ITEMS TIMES 
1 AUTOMATIC BURET O HRS.e 50 MINS. NO 
2 MAGNETIC STIRRER O HRS. 47 MINS. NG 
ANALYST 
CLASSIFICATION 1 O HRSs 0 MINS» YES 
CLASSIFICATION 2 O HRS. OO MINS. YES 
CLASSIFICATION 3 2 HRS. 10 MINS. YES 
CLASSIFICATION 4 0 


PARAMETER METHOD 
ALKALINITY ALK TITR 
TOTAL SAMPLE NUMBER EXPECTED 
20.G SAMPLES 
TOTAL RESOURCES ASSIGNED 
ITEMS TIMES 
1 EXPC SCALE PH MET 2 HRS. 40 
2 PH PREPARATION 1 HRS. 0 
/ ANALYST 
CLASSIFICATION 1 C HRS. 19} 
CLASSIFICATION 2 2 HRSe 5 
CLASSIFICATION 3 O HRS. ie) 
CLASSIFICATION 4 GC HRS. ie} 
PARAMETER METHOD 
TURBIDITY HACH TURBIDMETER 
TOTAL SAMPLE NUMBER EXPECTED 
20.0 SAMPLES 
TOTAL RESOUSCES ASSIGNED 
ITEMS TIMES 
1 HACH TURBIDMETER G HRS. 40 
ANALYST 
CLASSIFICATION 1 O HRSe 0 
CLASSIFICATION 2 2 HRS. 45 
CLASSIFICATION 3 O HRS. c¢) 
CLASSIFICATION 4 O HRS. ° 


MINS. 
MINS. 


MINS. 
MINS. 
MINS. 
MINS. 


MINS. 


MINS. 
MINS. 
MINS. 
MINS. 


MEASUBE_POINTs S8ANCh_ NOos EXPECTED VALUE 
Ea 33 21 126.942 


HAS _COUSTSZAINI_vIOLATED 


NO 
NO 


YES 
YES 
YES 
NO 


--—-------_-_- --- ------- 


MEASURE POINT: BRANCH NOws EXPECTED VALUE 
( ly 1) 21 0.157 


HAS CONSTRAINT VIOLATED 
NO 


YES 
YES 
YES 
NO 


PARAMETER METHOD 
ACIDITY SM 201 
TOTAL SAMPLE NUMBOR EXPECTED 
20.0 SAMPLES 


IOIAL_RESOURCES ASSIGNED 
ITEMS 
1 EXPN SCALE PH MET 
2 PH PREPARATION 


ANALYST 
CLASSIFICATION 1 
CLASSIFICATION 2 
CLASSIFICATIUN 3 
CLASSIFICATION % 


ee 


MEASURE POINTs SRANCH NOos EXPECTEO VALUE 


1) 21 163.874 


HAS_CONSIBSINI_ VIOLATED 


NO 
NO 


BSED Wy cme.) oy ee ee Olsens ew WO) an ee ww en 


# OF PARAMETERS TOTAL WAS CONSTRAINT AMOUNT OF VAN SPACE 
ITEM ITEM IS USED FOR TIME VICLATEO VIOLATION REQUIRED 
1 EX#O SCALE PH MET 2 3 HRS. 40 MIN. NO O HRS O WINS. 4.00 
3 PH PRZPARATION 3 5 RSs O MIN. NO O HRS. O MINS. &€.C0 
4 Pte MEASUREMENT 2 Ll HRS. O MIN. NO C HRS. O MINS. 3.CO 
5 AUTOMATIC RURET 3 2 HRS. 55 MINS NO UO HRS. Q PINS, &.CO 
7 CONDUCTIVITY METER 1 1 HRS. O MIN. NO G HRS. 0 MINS. 6.00 
8 ANAL BALANCE 4 21 HRS. I5 MIN, NO GO HRS. O MINS. §.CO 
9 OVEN ¢lUS C) 3 150 HRS. O MIN. YES 126 HRSe 0 MINS. 6.00 
10 OVEN (180 CD) 2 L2 HRS. O MIN, NO 0 HRS. 0 MINS. 4.00 
' 11 DeESSICATOR 4 34C HRS. O MIN. YES 316 HRS. 0 MINS. 4.00 
q 12 TECHNICON 2 6 HRS. O MIN. NO CGC FRSe O MINS. 290.00 
17 VACUUM SOURCE 2 15 HRS. O MIN. NO O HRSe GO MINS. 6.0 
218 MAGNETIC STIRRER 3 2 HRS. 47 MINe NO O HRS. O MINS. 1.00 
19° NEPHELOMETER(HACH) 1 lL HRS. 20 MIN. NO O HRS. O MINS. 6.00 
24 TECH AUTOANALYZER2 1 2 HRS. O MIN. NO Oo RRS. O MINS. $00 
27 HACH TURBIOMETER 1 G HRS. 40 MIN, NO O HRS. O MINS. 4.00 
28 HOTPLATE 1 1 HRSs 20 MIN. NO O HRS. O MINS. 18.COo 
. 
TOTAL_VAN_ SPACE 
TOTAL VAN SPACE ALLOCATED = 100.000 WAS CONSTRAINT VIOLATED? NO AMOUNT OF VIOLATION = 0.90 
GRAND TOTAL ANALYSTS TIME 
ANALYST TOTAL TIME CONSTRAINT VIOLATED? AMOUNT OF VIOLATION 
CLASSIFICATION L 25 HRS. O MIN. YES ll HRS. O MIN. 
CLASSIFICATION 2 56 HRS. 45 MIN YES 42 HRS. 45 MINe 
CLASSIFICATION 3 23 HRS. 10 MIN. YES 2 HRS. 10 MIN. 
CLASSIFICATION 4 6 HRS. 5 MINe NO O HRS. O MIN. 
IQ1TAL_COst 
TOTAL CQST = $ 0.0 WAS CONSTRAINT VIOLATED? NO AMOUNT OF VIOLATION = $ 0.0 
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*OPTIONS IN EFFECT® NOID»eEBCOICySOURCEyNOLIST»DECKyLOAD »NOMAP 
*OPTLONS IN EFFECT® NAME = SFCU y LINECNT = 60 
*STATISTICS*® SOURCE STATEMENTS = 27,PROGRAM SIZE = 1288 
*STATISTICS*® NO DIAGNOSTICS GENERATED 


